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FOREWORD 


This  report  is  one  of  two  computer  program  user ' s  manuals  prepared  by 
Aerotherm  Division  of  Acurex  Corporation  under  USAF  Contract  F04611-69-C-0081. 
Included  herein  is  Volume  II  of  the  manual  for  Version  3  of  the  Aerotherm  Axi- 
Symmetric  Transient  Heating  and  Material  Ablation  (ASTHMA3)  computer  code.  This 
volume  presents  definitions  of  Fortran  variables,  flow  charts,  and  program  list¬ 
ings.  The  code  was  originally  developed  under  USAF  Contract  F04611-67-C-0047, 
and  upgraded  under  the  subject  contract.  The  work  was  administered  under  the 
direction  of  the  Air  Force  Rocket  Propulsion  laboratory  with  Mr.  Robert  J. 
Schoner  as  Project  Officer. 

Mr.  John  W.  Schaefer  was  Program  Manager  and  Mr.  Mitchell  R.  Wool  was 
Program  Engineer.  The  ASTHMA  code  upgrading  was  performed  by  Dr.  Carl  B.  Moyer 
and  Mr.  Kurt  E.  Suchsland. 

This  technical  report  has  been  reviewed  and  is  approved. 


A.  D.  Brown,  Jr.,  Lt.  Col.,  USAF 
Chief,  Technology  Division 


ABSTRACT 


This  document  presents  definitions  of  Fortran  variable  names ,  flow  charts , 
and  listings  for  the  Aerotherm  Axi-Symmetric  Transient  Heating  and  Material 
Ablation  Program,  Version  3  (ASTHMA3) . 
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SECTION  1 


'  ,  .  . INTRODUCTION 

!  i  i  I 

The  computer  program  described  in  this  user's  manual  is  a  revised  edition 
of  the  Axi-Symmetric  Transient  Heating  and  Material  Ablation  Program  (ASTHMA^) .  ' 
The  current  program  solves  all  problems  that  the  earlier  version  could, solve 
and1  provides  additional' computational  capabilities.  ■  ‘  !  , 

The.  purpose  of  Volume  I  of  this  user's  manual  was  to  enable  an  unfamiliar 
user  to  utilize  effectively  the  Axi-Symmetric  Transient  Heating  and  Material 
Ablation  Programl  It  contains  a  general  description  of  the  problems  ASTHMA3 
solves,,  an  input  data  deck 'preparation  guide,  and- a  sample  problem  input;  and 
output.  Volume  II  of  this  manual,  included  herein,  contains  the  following  addi¬ 
tional  program  documentation:  (  . 

*  i  *  i 

'  •  Definitions  for  important  Fortran  variables  used 

•  : Flow  charts  of  program  logic  for  each  Fortran i routine 

•  Listings  of  Fortran  IV  source  'decks  ?  ,  ! 

These  are  giver:  in  Sections  2,  3>,  and  4,  respectively. 


I 
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.  1  '  ■  1  SECTION  2 

* 

t 

,  FORTRAN  VARIABLE  NAMES 

'  .  '  I  1 

This  section  contains  a  list  of  Fortran  variable  names  used  in  ASTHMA. 

'  Descriptions  of  the  relative  positions  of  nodes  employ  a  simple  conven¬ 

tion  in  order  to  avoid  the  repeated  use  of  lengthy  phraseology.  The  nodal  net 
is  assumed 'to  be  visualized  by  the  reader  as  read  in  from  bottom  to  top  in  each 

<  1  column,  with  the  columns  encountered  in  left  to  right  sequence.  Thus,  for  a 

«  ? 

given  node,  the  node  in  the  same  row  in  the  preceding  column  is  described  as 
being 'to  the  left  of  the  given  node,  and  so  on.  This  convention  simplifies 
i  ,  verbal  descriptions  in  tMe  list  below.  It.  will  be  understood,  however,  that 

ASTHMA  numbers  nodes  as  encountered  £n  the  read  in  process,  independent  of  the 

i 

user's  visualization  convention  of  the  nodal  network. 

i 


list  of  variable  names  for 

AEROTHERM  AXI-SYMMETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATION  PROGRAM  (ASTHMA) 


ROUTINE! 

A8THMA 

VARIABLE 

UNITS 

STORAGE 

DESCRIPTION 

« 

AA(  ) 

IN,FT2 

BLANK 

READ  IN  AS  GRID  RADIUS  COMPONENT, 

LATER  REPLACED  BY  NODAL  BOX  SIDE 
AREA  FUR  SIDE  ADJACENT  TkJ  PRECEDING 
(LEFT)  COLUMN 


AB(  ) 

?.N,FT2 

BLANK 

READ  IN  AS  GRID  POINT 

AXIAL  (Z)  COMPONENT ,  LATER 

REPLACED  BY  NBDAL  BOX  SIDE  AREA  FUN  SIDE 
AOJACENT  TO  PRECEDING  ROW 

AUK) 

FT2 

BLANK 

TOP  SURFACE  AREA  0F  NODE  K 

AD(K) 

FT2 

BLANK 

AREA  0F  SIDE  OF  NBDAL  BOX  K  ADJACENT 

TO  NEXT  (RIGHT)  COLUMN 

AG 

FT2 

BACK 

AREA  0P  1  HAT  SIDE  0F  N0DAL  BOX 

CALLEO  OUT  AS  1  HE  SIDE  EXPOSED  TO  1  HE 

BACK  HALL  BOUNDARY  CONDITION 

BLANK 

mrnm 

local 

DATA  BLANK/toh/ 

BP 

local 

DIMENSIONLESS  MASS  TRANSFER 

PARAMETER  B  PRIME 

BPG 

local 

NO  PHYSICAL  SIGMFIANCt  IN  ASTHMA, 

EQUALS  ZERO 

8H 

blank 

RATIO  OF  BLOWN  TO  UNbLORN  MASS  TRANSFER 
COEFFICIENT,  BLOWING  REDUCTION  RATIO 

BRP 

LOCAL 

CONSTANT  VALUE  OF  BLOWING 

REDUCTION  PAKAMEIER 

1 

QAP(I) 

BTU/OkCH 

blank 

TOTAL  TMERMAL  CAPACITY  0F  NODE  1 

CEC 

*** 

LOCAL 

CONSERVATION  OF  ENERGY  CHECK, 

total  suhface  heat  conduction  flux 

OVER  TOTAL  INTERNAL  STORAGE 

X 
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CIST  OF  VARIABLE  NAMES  FOR 
AEROTHERM  AXI.SVMMETRIC  TRANSIENT 


HEATING  AND 

MATERIAL 

ABLATION  PROGRAM  (ASTHMA) 

RtfUTlNEl  ASTHMA 

variable 

UNITS 

STORAGE 

description 

CM 

LB/FT2.SEC 

BLANK 

HEAT  TRANSFER  COEFFICIENT 

CHI ( I, J) 

LB/FT2.SEC 

BLANK 

I*TH  TABULAR  VALUE  OF  HEAT  TRANSFER 
COEFFICIENT  IN  J*TH  TIME  TABLE 

CM 

LB/FT2-SEC 

blank 

MASS  TRAN8FER  COEFFICIENT 

CMO 

LB/FT2.3EC 

LBCAL 

NO  PHYSICAL  SIGNIFICANCE  IN  ASTHMAf 
EQUALS  ZERO 

CMOBT(J) 

LB/FT2-SEC 

BLANK 

STORED  VALUE  OF  ABLATION  RaTE 

M.DOT  FOR  J.TH  COLUMN(SURFACE  PBIM) 

CMM 

BLANK 

RATIO  OF  HASS  10  HEAT  TRANSFER 
COEFFICIENTS 

CMH3 

LBCAL 

INPUT  VALUE  OF  CMH 

CMT(J) 

LB/FT2 

BLANK 

TIME  INTEGRATED  VALUE  OF  EROSION  FOR 
J.TH  COLUMN 

CM  (If  J) 

BTU/FT- 

SEC.OEGR 

BLANK 

1*1 H  TABULAR  VALUE  OF  THERMAL 
CONDUCTIVITY  IN  J.TH  MATERIAL 
PROPERTIES  TAHLEIFkJR  MATERIAL  NO*  J), 
THIS  C0NOULTIVITT  APPLIES  ALONG  ROWS 
(N. DIRECTION,  FIXED  M) 

CM2(I,J) 

BTU/FT* 

SEC. DEGR 

blank 

I*TH  TABULAR  VALUE  OF  THERMAL  CONDUCT* 
IVITY  J.TH  MATERIAL  PROPERTIES  TABLE 

(FUR  MATERIAL  NO,  J),THIS  CONDUCT  1 VI T Y 
APPLIES  ALONG  COLUMNS  IM-DIRECTIBN, FIXtD 
N),  REPLACED  BY  CNT(I.J)  IF  ENTERED  AS 
ZERO 

STORES  RELEVAN1  CONDUCTIVITY  OF  A 
BACK. WALL  MADE  FOR  OPTION  1  BACK  WALL 
MEAT  TRANSFER  CALCULATION,  OR  BPTIBN  2 
BACK  WALL  NBDE  TEMPERATURE 


CBN(K) 


BTU/FT* 
SEC.DEGH 
SR  DEGR 


BLANK 


LIST  OF  VARIABLE  NAMES  FOR 
AEHOTHERM  AXI-SYMMETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATION  PROGRAM  (ASTHMA! 


ROUTINE! 

ASTHMA 

VARIABLE 

UNITS 

STORAGE 

DESCRIPTION 

CRT (I# J) 

BTU/LB 

BLANK 

1-TH  TABULAR  VALUE  OF  SPECIFIC  HEAT  IN 
J»TH  MATERIALS  PROPERTIES  TABLE  (FOR 
MATERIAL  NO,  J) 

CR(K) 

IN 

BLANK 

RADIUS  COORDINATE  OF  K»TH  GRID  POINT 

CRA(K) 

FT2-SEC* 

DEGK/BTU 

BLANK 

INTERFACE  (CONTACT)  RESISTANCE  BETWEEN 
NODE  K  AND  NEXT  NODE  (UP)  IN  SAME  COLUMN 

CRB(K) 

FT2-SEC* 

DEGR/BTU 

BLANK 

INTERFACt(CONTACT)  RESISTANCE  BETWEEN 
NODE  IN  NEXT  (RIGHT)  COLUMN  IN  SAME  ROW 

CT2 

BTU/Ld 

local 

UNUSED  PLACE  HOLDER 

UIK) 

IN 

BLANK 

AXIALU)  COORDINATE  of  K*’H  CHID  POINT 

DEtHFCX) 

BTU/LB 

LOCAL 

HEAT  OF  FORMATION  AT  29B  DEG  K 

OF  MATERIAL  ASSIGNED  TO  I«*1H  SURFACE 
TABLE  (PRESSURE  SET) 

DEN 

VARIOUS 

LK 

INTERPOLATION  KAtlO,  ALSO  USED  AS  SUM 

OF  CONDUCTANCES  (DENOMINATOR  IN 

FRACTION) 

OENSV 

VARIOUS 

LK 

SAVED  VALUE  OF  DEN 

0H2 

BTU/LB 

LOCAL 

HEAT  OF  FORMATION  OF  ABLATING  MATERIAL 

DH2S 

BTU/LB 

LOCAL 

SAVED  VALUE  OF  DH2 

DLTH 

SEC 

BLANK 

INPUT  FIXED  TIME  STEP 

OMS 

LB/FT2«SEC 

LOCAL 

PARAMETRIC  VALUE  OF  TRANSFER  COEFFICIENT 
ON  SURFACE  THERMOCHEMISTRY  TABLE 

CARDS 

OSIJ) 

FT 

blank 

INCREMENT  IN  CtMEHLIN'E  RECESSION  AT 

J»TH  COLUMN  DURING  CURRENT  TIME  STEP 

list  of  variable  name*  fur 

AfROTHIRM  AXI-SYMNETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATION  PROGRAM  tASTHHA) 


ROUTINII  ASTHMA 


variable 

UNITS 

STORAGE 

DESCRIPTION 

OSOTU) 

FT/SEC 

BLANK 

COLUMN  CENTERLINE  SURFACE  RECESSION 
RATE  AT  J«TH  COLUMN 

DSDTB(J) 

FT/SEC 

blank 

NEN  VALUE  OF  COLUMN  CENTERLINE 

SURFACE  RECESSION  RATE  AT  J*TH  COLUMN 

OSDTBN(J) 

FT/SEC 

blank 

NER  VALUE  OF  NORMAL  SURFACE  RECESSION 
RATE  AT  J*TH  COLUMN 

D3N(J) 

FT 

BLANK 

INCREMENT  IN  NORMAL  RECESSION  AT 
j«TH  COLUMN  DURING  CURRENT  TIME  STEP 

OSTCJ) 

FT 

BLANK 

TOTAL  CENTERLINE  RECESSION  IN  CURRtNT 
SURFACE  NODE  A}  J»TM  COLUMN 

USTTU) 

FT 

BLANK 

INTEGRATED  CENTERLINE  RECESSION  AT 
J»TH  COLUMN 

DTK 

SEC 

BLANK 

TIME  STEP 

OTHM 

SEC 

LOCAL 

MININUM  TIME  STEP  EMPLOYED  BETWEEN 

TNO  OUTPUT  TIMES 

0TH3 

SEC 

BLANK 

MINIMUM  NODE  STABILITY  LIMITING  TIME 
STEP 

02(1) 

VARIOUS 

LOCAL 

UTILITY  VARIABLE  USED  FOR  OUTPUT 
DERIVATIVES  FROM  LOOK 

E6« 

BACK 

BACK  NALL  EMIT T ANCE  FOR  CURRENT  BACK 
NALL  BEING  CONSIDERED 

El)EH(I) 

BTU/F  T2*3EC 

BLANK 

VALUE  OF  ERROR  IN  SURFACE  ENERGY 
BALANCE  AT  l«TH  ITERATION 

fcMN(J) 

***** 

BLANK 

SLOPE  DR/D l  OF  NORMAL  TO  SURFACE 

AT  J*TH  COLUMN  (SURFACE  POINT) 

LIST  OP  VARIABLE  NAMES  PVR  < 
AEROTHEHM  AXI-IYMMETKIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATIf N  PROGRAM  (ASTHMA) 


RBUTINEl 

I  ASTHMA 

VARIABLE 

UNITS 

STORAGE 

DESCRIPTION  (  * 

EMI 

•  Tf 

LOCAL 

1 

1  l 

EHITTANCf  BP  MATERIAL  ABOVE  A  NODAL 

GAP,  AT  CURRENT  NODAL  (TEMPERATURE 

EH2 

LOCAL 

EMITTANCE  OF1  MATERIAL  BELOH  A'NODAL  GAP 
AT  CURRENT  NODAL  TEMPERATURE 

epsv(i) 

tft 

BLANK 

EMITTANCE  OP  A  NODE  SAVED  FOR  BAC'A  HALL 
ENERGY  TRANSFER  .CALCULATIONS 

EPS* 

mm* 

BACK 

CONSTANT  BACK  WALL  EMITTANCE  VALUE 

EPK1,  J) 

Tmm 

BLANK  ‘ 

,I«TiR  TABULAR  ENTRY  OF  EMITTANCE  IN 
PROPERTIES  ‘TABLE  FBt<  J-TM  MATERIAL 

ETA 

mm* 

BLANK 

MULTIPLICATIVE  FACTOR  ON  '  ' 

3TABILTY  LIMITED  TIME  STEP  1 

DETERMINED  FHOt1>  NODAL  TIME  CONS'TAM 

P  T 

ft/in 

BLANK 

NUMERICAL  CONVERSION  CONSTANT  '.0BJJJ3 
.o. FT/IN  , 

FV 

BLANK 

NUMERICAL  pNSlANT  0,b 

GU) 

L8/PT2-3EC 

BLANK 

SAVED  VALUE  OP  CONVECTIVE  MASS  TRANSFER 
COEFFICIENT  HOE*UE»CM  AT  J*TH  SURFACE 
POINT 

GUJ) 

LB/FT2«SEC 

HUNK 

i 

SAVED  VALUE  OP  CONVECTIVE  MASS  TRANSFER 
coefficient  b&poke  blowing  correction, 

AT  J»TH  SURFACE  POINT) 

HA 

VARIOUS 

LOCAL 

UTILITY  VARIABLE,  MANY  TEMPORARY  USES 

HB 

VARIOUS 

LOCAL" 

UTILITY  VARIABLE,  MANY  TEMPORARY  USES 

.  ‘  I 

HBN 

BTU/FT2* 

SEC*DEGR 

BACK  . 

CONVECTIVE  TRANSFER  COEFFICIENT  AT 

A  BACK  WALL  SURFACE 

i 
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LIST  OF  VARIABLE  NAMES  FUR 
AEROTHERM  AXI*3YMMETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLAT1SN  PROGRAM  (ASTHMA) 


HOUTINEl  ASTHMA 


VARIABLE 

UNITS 

STBRAGE 

HC 

VARIOUS 

LOCAL 

HCH 

8TU/LB 

LOCAL 

HCONV 

■  BTU/FT2- 
8EC«DEGR 

BACK 

HD 

VARIOUS 

LOCAL 

HE 

VARIOUS 

LOCAL 

HEDG(J) 

BTU/LB 

BLANK 

HF 

•  VARIOUS 

LOCAL: 

HG  ‘ 

‘  F  T2 

LOCAL 

HGA 

f  < 

r 

BTU/18 

LOCAL 

HH 

F  T2 

LOCAL 

HM 

i 

5TU/FT- 

8EC«*DEGR 

LOCAL 

HMS 

1 

BTU/FT* 

SEC-DEGR 

LOCAL 

HS 

FT  J 

LOCAL 

HSH  ' 

BTU/LB 

LOCAL 

DESCRIPT ION 


UTILITY  VARIABLE#  MANY  TEMPCRARY  USES 

ENTHALPY  0F  ABLAI1NG  MATERIAL  AT 
SURFACE  TEMPERATURE 

CBNSTANT  VALUE  BP  BACK  NALL  HEAT 
TRANSFER  COEFFICIENT 

UTILITY  VARIABLE#  MANY  TEMPBRAKY  USES 

UTILITY  VARIABLE#  MANY  TEMPBRARY  USES 

SAVED  VALUE  BF  INPUT  RECOVERY 
ENTHALPY  (AS  INTERPOLATED  IN  TIHE  TABLE 
FOR  J-TH  SURFACE  POINT 

UTILITY  VARIABLE#  MANY  TEMPORARY  USES 

UTILITY  VARIABLE  IN  GEOMETRY 
CALCULATIONS 

NO  PHYSICAL  SIGNIFICANCE  IN  ASTHMA# 
EQUALS  ZERO 

UTILITY  VARIABLE#GE0HETRY  CALCULATIONS 

UTILITY  VARIABLE  USED  FOR  STORAGE 
OF  NODAL  CONDUCTIVITIES 

8AVED  VALUE  OF  HM 


UTILITY  VARIABLE  IN  NODAL  VOLUME 

calculation 

ENTHALPY  TERM  USED  TO  SCALE 
sensible  ENTHALPY  table  entries 
TO  ZERO  AT  THE  DATUM  STATE 
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LIST  «F  VARIABLE  NAMES  FOR 
AEKOTMERM  AXI*SYMMETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATION  PROGRAM  (ASTHMA) 


ROUTINE! 

ASTHMA 

variable 

UNITS 

STORAGE 

description 

»• 

HHLCJ) 

BTU/LB 

BLANK 

STORED  VALUE  OF  ENTHALPY  OF  FROZEN  EDGE 

h 

GASES  AT  CURRENT  SURE  ACE  TEMPERATURE 
OF  J»TH  SURFACE  POINT#  ZERO  SF  NO 
EDGE  TABLES  ARE  PROVIDED 


HZ 

BTU/LB 

LOCAL 

Z«ENTHALPY  TERM  OBTAINED  BY 

LOOK»UP  IN  FROZEN  EDGE  TABLES#  USED 

IN  CONSTRUCTING  SURFACE  THER0CHEMIBTRV 

TABLES 

I 

LOCAL 

UTILITY  INDEX  OFTEN  USED  AS  NODE 

COUNTER 

IAB 

mmm 

BLANK 

FLAG,  INITIALLY  ZERO#  USED  TO  DETECT 

first  pass  through  ablating 

(B  PRIME  INDEPENDENT)  SURFACE  ENERGY 

BALANCE  PACKAGE 

1ABLS(J) 

BLANK 

SAVED  VALUE  OF  IAB  AT  J-TH  COLUMN 

IEX 

LK 

INOEX  RETURNED  BY  LOOK#  VALUES  GRtAlEH 

THAN  ZERO  INDICATE  EXTRAPOLATION 

HAS  REUUIRED  FOR  LATEST  LOOK.UP 

IFIN 

LOCAL 

NOT  CURRENTLY  U8tD 

IFORM(I) 

LOCAL 

VARIABLE  USED  10  STORE  ADJUSTABLE 

OUTPUT  FORMAT  FOR  IN  DEPTH 

TEMPERATURES 

It 

LOCAL 

FLAG  USED  TO  MARK  A  MAXIMUM  TEMPERATURE 

ENTRY  IN  A  B  PRIME  TABLE 

t 

IHKK) 

LK 

INDEX  OF  LA8 f  fcNTNY  IN  TABLE  NUMBtH  K 

IK  J) 

?•» 

BLANK 

STORED  INDEX  DESCRIBING  CURRENT 

BOUNDARY  HEATING  CONDITIONS  OPTION  AT 

J-TH  SURFACE  POINT  (1#2,0R  i) 

i 
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LIST  65F  VARIABLE  NAMES  FBR 
AEHOTHEMM  AXX«*SYMMETR  JC  TRANSIENT 
HEATING  ANO  MATERIAL  ABLATION  PROGRAM  (A8THMA) 


HiUTINEl  ASTHMA 


VARIABLE 

UNITS 

STBKAGE 

DESCRIPTION 

III 

LOCAL 

UTILITY  INDEX#  USUALLY  NUMBER  OF  RONS 

U 

mmm 

LOCAL 

temporary  boundary  condition 

HEATING  OPTION  IDENTIFICAT10NU»2»BRS) 

U»IK> 

LK 

index  of  first  entry  in  table  number  k 

IN 

LOCAL 

UTILITY  INDEX*  USUALLY  INDEX  FBR  NEXT 
TRANSFER  COEFFICIENT  VALUE  IN  SURFACE 
THERMBCHEMI8TRY  TABLES 

INCH 

10  CAL 

LOGICAL  UNIT  NUMBER*  USED  FOR  INPU1  OF 
SURFACE  THERMOCHEMISTRY  TABLES 

IMCR 

LOCAL 

UTILITY  :>  -X  USED  IN  OUTPUT  OF 

NODAL  TEMPERATURES 

INPUT 

LOCAL 

LOGICAL  UNIT  NUMBER#  USED  FOR  INPUT 

OTHER  THAN  SURFACE  THERMOCHEMISTRY 

TA9LES 

INI 

LOCAL 

UTILITY  INDEX 

iePHNTH) 

•  •• 

LOCAL 

BOUNDARY  CONDITION  HEA1ING  OPTION  NUMBER 
BF  THE  NT H*TH  ENTRY  IN  THE  CURRENT  TIMt 
TABLE 

IP 

•  •• 

LOCAL 

index  bn  pressure  in  surface  thermo¬ 
chemistry  TABLE  INPUT 

IPN 

local 

index  on  pressure  in  surface 

THERMOCHEMISTRY  TABLE  INPUT 

1HU) 

LN 

REMEMBERED  INOfcX  IN  K-TH  TABLE  ADJACEN1 
TO  PREVIOUS  VALUE  FOR  NHICH  A  LOOK-UP 

NAS  PERFORMED 

LIST  BP  VARIABLE  NAMES  FOR 
AEROTHERM  AXl-SYHMETRIC  TRANSIENT 


HEATING 

AND  HATEH1AL 

ABLATION  PROGRAM  (ASTHMA) 

ROUTINE J  ASTHMA 

variable 

UNITS 

8T0RAGE 

DESCRIPTION 

is 

•  •• 

LOCAL 

SAVED  VALUE  OP  IJ  DURING  TIME  TABLE 
INPUT 

ISEN(I) 

ENRGY 

NUMBER  OF  ENTRIES  IN  FROZEN  EDGE  TABLE 
FOR  I-TH  TABLE 

ISKIP 

999 

local 

SAVED  HOLLERITH  FORMAT  SPECIFICATION 
6H#A6#6X 

IT 

LOCAL 

UTILITY  INDEX#  USUALLY  USED  AS 
PROPERTIES  TABLE  INDEX 

ITER 

9  +  9 

LOCAL 

ACCUMULATED  NUMBER  OF  TIME  STEPS  TAKEN 

ITS 

BLANK 

NUMBER  OF  ITERATIONS  TAKEN  IK  LATEST 
SURFACE  ENERGY  BALANCE  SEARCH 

ITSR(J) 

999 

blank 

SAVED  VALUE  OF  ITS  FOR  J*TH  SURFACE 
POINT 

IX 

999 

LOCAL 

FLAG  ON  TYPE  OF  INPUT  ERROR  IN  SURFACE 
THERMOCHEMISTRY  TABLE  INPUT 

lli  ) 

999 

LOCAL 

OUTPUT  INDEX  ARRAY  FROM  SUBROUTINE 
ORDEKD 

J 

999 

LOCAL 

UTILITY  INDEX  OFTEN  USED  AS  A 

COLUMN  COUNTER 

JFORMt  ) 

999 

LOCAL 

ARRAY  USED  FOR  OUTPUT  FORMAT 
CONSTRUCTED  FOR  NODAL  TEMPERATURES 

JJ 

999 

LOCAL 

UTILITY  VARIABLE#  OFTEN  USED  FOR 

SShTCH  SENSE 
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LIST  OF  VARIABLE  NAMES  FOR 
AEROTHEHM  AXI-SYMHETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATION  FR8GRAM  (ASTHMA) 


t 


f 


ROUTINE! 

ASTHMA 

VARIABLE 

UNITS 

STORAGE 

DESCRIPTION 

4NG 

MU 

LOCAL 

FLAG  TO  IDENTIFY  TYPE  OF  SURFACE 
THERMOCHEMISTRY  TABLE  ENTHY»-l  FOR 

FROZEN  EDGE  TABLE,  0  FOR  ZERO  B  PRIME 
(INDEPENDENT  SURFACE  TEMtRATUNE)  ENTRY, 

1  FOR  SURFACE  EQUILIBRIUM  (B  PRIME  INQE* 
PENDENT)  IN  CMA  FORMAT  **  iG,l,  AND  2 
USED  IN  ACE  FOHMAT ) 

JN.ICK 

LOCAL 

UTILITY  INDEX  USED  IN  OUTPUT  OF  NODAL 
temperatures 

jr 

LOCAL 

UTILITY  INDEX 

K 

LOCAL 

UTILITY  INDEX,  OFTEN  U8ED 

FOR  PRECEDING  NODE 

KASE 

•  •• 

LOCAL 

input,  non»zero  calls  for  read  of  an 
ADDITIONAL  STACKtD  PROBLEM,  ZERO 
indicates  last  problem 

KBR(KT) 

LOCAL 

INDEX  FOR  KT.1H  1IME  TABLE  USED  TO 

CHECK  FOR  CONSISTENCY  OF  IIME  TABLE 
ASSIGNMENTS  TO  NODES  IN  BACKTRACE#  FRONT 
NALL  SENSE,  0  DENOTES  FRONT*NALL, 

I  DENOTES  BALK*RALL,  2  DENOIES  NOT  YET 
ASSIGNED 

KCAN 

LOCAL 

INDEX  USED  IN  IDENTIFICATION  OF  THE 
HEATED  SURFACE  NODE  IN  A  GIVEN  COLUMN 

KCENT 

blank 

INPUT  FLAG  DENOTING  NODAL  CENfER 

OPTION,  0  INDICATES  BACK*8»1IFTED, 

i  indicates  centered 

KOHOP(J) 

BLANK 

flag, 1  INDICATES  A  node  has  dropped  in 
COLUMN  J  AT  THIS  TIME  STEP,  0 

indicates  no  drop 
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LIST  OF  VARIABLE.  NAMES  FBR 
AERUTHEHM  AXI'SYMHETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATIBN  PROGRAM  (A8THMA) 


ROUTINE  I  ASTHMA 


VARIABLE 

UNITS 

STBRAGE 

DESCRIPTION 

KGAPU) 

BLANK 

RADIATIBN  GAP  FLAG,  I  INDICATES 
RADIATIBN  GAP  HAS  BEEN  SPECIFIED  AT  THE 
TOP  BF'  THE  I*TH  NBDE,  D  INDICATES 

CENT  ACT  CONDUCTANCE  BNLY 

KHIU,J) 

ENRGY 

HARKS  LAST  ENTRY  IN  NB»ABLAT1BN 
(TEMPERATURE  INDEPENDENT)  PART  BF  A 

SURFACE  THfcMItfChBMISTRY  TABLE  FBR  I*TH 
VALUE  BF  MASS  I RAN8FER  COEFFICIENT 
AND  J-TH  PRESSURE,  REGARDLESS  OF  USERS 
INPUT  LABELLING,  THIS  IS  TAKEN  AS  LAST 
TEMPERATURE  BEFBKE  TEMPERA I URfc 
ENTRIES  BEGIN  IB  DESCEND  IF  EVER 


KK 

LBCAL 

TBTAL  NUMBER  BF  NBDES 

KLBG 

LBCAL 

INPUT  FLAG,  l  CALLS  FBR  NEK, 

FASTER  PROPERTIES  LOOK. UP  LUG  IC»  U  CALLS 
FBR  0LDER  LOGIC 

KMTL(J) 

«»»• 

LBCAL 

material  number  ASSIGNED  TB  j-tm 

SURFACE  THERMOCHEMISTRY  TABLE 

TB  IDENTIFY  SPECIFIC  HEAT 

FUNCTIBN  TB  BE  EMPLBYED  IN  ABLATION 
CALCULATIONS,  ZERO  IMPLIES  BNE 

KN 

LBCAL 

FLAG,  t  INDICATES  OPTION  1  ENTRIES  F.Y  13/ 
IN  CURRENT  TIMt  TABLE,  ZEHB  IN5*3U(SS 

NB  OPTION  1  ENIRIES  YET  CiDtOVERED 

KNW 

m  —  m 

LBCAL 

FLAG#  l  INUIT'^ES  OPTION  I  ENTRIES  BCCUR 
SBMtf.HlE)«c  IN  HEATING  TABLES  CONSIDERED 

4o  A  KHOLE,  ZERO  INDICATES  NO  OPTION  I 
ENTRIES 
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LIST  OF  VARIABLE  NAMES  EUR 
AER0THEHM  AXI-SVMMETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATI0N  PROGRAM  CA8THMA) 


ROUTINEl  ASTHMA 
STORAGE  DESCRIPTION 


VARIABLE  UNITS 


KNST 

LOCAL 

K0RTG 

LOCAL 

KOUT 

LK 

KUOP 

n*m 

BLANK 

KNESC 

BLANK 

KSHCI) 

BLANK 

K3L0P  *-•  BLANK 

KSSH  •••  L0CAL 

K3TRP  «*—  LOCAL 


FLAG  USED  TB  IDENTIFY  FIRST  SURFACE 
THERM0CHEHI3TRV  DECK  ENCOUNTERED*  10 
CHECK  ERRBNE0U9  ASSIGNMENT  0F 
TABLE  IF  TABLE  EXISTS 

INPUT  FLAG#  1  CALLS  F0H  ORTHOGONALITY 
CORRECTIONS  TO' THERMAL  CONDUCTANCES* 
ZERO  OMITS  CORRECTIONS 

LOGICAL  UNIT  NUMBER  FOR  PRINTED  OUTPUT 

NOT  USED 

I 

FLAG*  INPUT  BUI  ADJUSTED  BY  ADDING  1* 
SPECIFYING  TYPE  OF  FIRST  To  SECOND  NODE 
LINKAGE*  1  DENOTtS  EXPLICIT*  2  DENOTES 
QUARTER  IMPLICIT*  i  DENOTES  HALr 
IMPLICIT 

DENOTES  SIDE  HEATED  FOR  NODE  1* 

1  IMPLIES  HEATED  SURFACE  BOUNDARY 
C0NDIT10N*2*3  AND  4  IMPLY  BACK-HALL 
BOUNDARY  CONDITION*  THESE  INPUT  NUMBERS 
LATER  ADJUSTED  TO  ACCOUNT  FOR  VARIOUS 
BACK-HALL  HEATING  OPTIONS 

INPUT  SLOPE  ROUTINE  FLAG*  ADJUSTED  UP 
BY  ONE*  I  DENOTES  LINEAR  AVERAGING*  2 
DENOTES  QUADRA  1 1 C  SLOPE  FINDER 

UTILITY  VARIABLE  USED  FOR  SENSt  SHlTCH 
SENSE 

SPECIAL  PUNCHED  OUTPUT  FLAG*  CALLS  FOR 
PUNCHED  OUTPUT  AT  ALL  PRINT  TIMtS* 

2  CALLS  FOR  PUNCHED  OUPUT  ONLY  AT 
SPECIAL  TIHES*  SEE  T PNC  ) 


I 


i 


i  t 

,  '  l  f 

t  if  i  j 

LIST  BF  VARIABLE  NAHLS  MJR 
AtRBTHERM  AXI*3YMMETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ‘ABLAT10N  PRBGKAM  (ASTHMA) 


t  .  s 

*  i 


. 

,  HUUTINEl 

ASTHMA  ! 

VARIABLE 

UNITS 

STUHAGE  ' 

DE3CKIPTI0N  '  ‘  i 

K3UH(J)' 

i  * 

!* 

1 

•  •fl 

t 

'blank 

r 

DENBTES  NUDE  NUMBER  UF  CURRENT  SURFACE 
NUDE  IN  J»7H  CULUMN  ’<  '  . 

KT 

mmm 

L0CAL  i 

UTILITY  INDEX, USUALLY  TIME  TABLE  lUUNTLR 

KlCTB 

'  LUCAL 

l 

INPUT  FL'AS,,  ADJUSTED  UPWARD  BY  UfTk, 
DEN0TIN6  SURFACE  THERUCHEM1STHY  TABLE 
FURMAT,  1  DENBTES  STANDARD  ACE  FURMAT, 

4  DtNBTES  CM  A,  FURMAT 

KTH(I) 

t  • 

w*w 

BLANK 

! 

.  1 

INPUT, FLAG  FUR  NUDE  I,  1  UfcNUTES  NUDE 

I  T0  BE  CUNSIDERED  IN  STABILITY  LIMITED 
TIME  STEP  CALCULAT1UNS,  ' 

0  DENBTES  THATNBDE  I  IS.NUT  T0  BE 
CUNSIDERED 

KTS 

LUCAL 

SAVED  VALUE  UF  MATERIAL  IDENT IFICAT IUN 

number  (  1 

KTU(I) 

J 

*  9  +  m 

I  blank 

TIME  TABLE  NUMb.EK  ASSIGNED  TU  NUDE.  I  ! 

KNE(I> 

1 

•  •• 

blank 

NUT  PRESENTLY  USED  IN  ASTHMA  ' 

L‘ 

lbcal, 

UTIL  IT  X  INDEX  1 

LCl 

! 

lbcal  , 

NUMBER  UF  LINES  REMAINING  IN  CUKKtNT 
UUTPUT  PAGE  i  ,  , 

ICTX 

1 

\ 

LUCAL ' 

NUMBER  UF  LINES  TU  BE  NRITTEN  IN  CURRENT 
UUTPUT  UPEKATIBN  ' 

LL 

fft 

1  » 

!  LUCAL 

,  ! 

UTILITY* VARIABLE,  .USUALLY 

10NER  LIMIT  UF  IMPLIED  LUUP 

UL 

LUCAL 

UTILITY  VARIABLE  1 

LLLM 

LBCAL 

UTILITY  VARIABLE  FUR  NUMBER  UF  LINES  TU 
BE  NRITTEN  , 

ft*,  i  * 

i 
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,  LIST  OF  VARIABLE  NAMES  EUR 

AEHOTHEHM  AXI-SYMMETRIC  TRANSIENT 
HEATIN6  AND  MATERIAL  A8LAT19N  PROGRAM  (ASTHMA) 

.  i 


ROUTINE! ,  ASTHMA 


VARIABLE 

1  UNITS 

STORAGE 

DESCRIPTION 

t 

LR  ■ 

i 

l  . 

••• 

1 

'  Udthl 

UTILITY  INDEX  USUALLY  0N  CONNER 
COORDINATE  TO  LONER  RIGHT 

LO  ! 

LBCAL 

UTILITY  VARIABLE 

R  « 

10CAL 

1 

UTILITY-  INDEX,  OFTEN  USED  AS  NODE 
COUNTER 

NATUI) 

! 

BLANK ' 

INPUT  MATERIAL  IDENTIFICATION  NUMBER 
ASSIGNED.  TO  NODE  I 

MCKIT 

i 

LBCAL 

!  RON  INDEX  OF  NODE  WITH  SMALLEST 
STABILTY  LIMITED  TIME  STEP 

MM 

i  •  »-• 

1  BLANK 

NUMBER  OF  ROWS  IN  NODAL  GRID 

MOUT 

l 

i 

LBCAL 

'  ■ 

ABSOLUTE  VALUE  OF  MATERIAL  IDtNT IF  1* 
CATION  NUMBER  FOR  OUTPUT  PURPOSES 

MPR(l)  i 

1 

wwm 

i 

BLANK 

STORED  RON  INDEX  OF  I*TH  OUTPUT 

NODE  TEMPERATURE  IN  AN  OUTPUT  LINE 

M2. 

* 

1  LOCAL  5 

UTILITY  INTEGER 

1 

N  . 

LOCAL 

UTILITY  INDEX,  OFTEN  USED  AS  NODE 
COUNTER 

NC 

i 

‘  LOCAL 

UTILITY  INTtGER 

NCMRN 

\ 

s 

PAKAN  , 

MAXIMUM  NUMBER  OF  NODAL  GRID 
(INTERSECTION)  POINTS 

NCKIT 

i  LOCAL 

COLUMN  INDEX  OF  NODE  NITH  SMALLEST 

STABILITY  LIMITED  TIME  8TEP 


i 

2-15 


i 


TJP 


LIST  OF  VARIABLE  NAMES  FOR 
AER8THIRM  AXZ«SYHHKTR IC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATION  PROGRAM  (ASTHMA) 


HBUTJNEl  ASTHMA 

variable 

UNITS 

3 1  BRACE 

DESCRIPTION 

i 

NHIU,)) 

tNRCY 

HARKS  THE  TOP  ENTRY  IN  THE  ABLATING 

PART  OF  THE  J-TH  SURFACE  THEROCHEMISTRY 

TABLE#  FOR  THE  Z-TN  VALUE  OF  MASS 

transfer  coefficient 

NHT 

**«»• 

BLANK 

NUMBER  OF  TIME  TABLES  READ  IN 

NLO(I# J) 

fcNRCV 

HARKS  BOTTOM  ENTRY  IN  ABLATING  PANT  OF' 

4*TH  SURFACE  THEROCHEMISTRY  TABLE# 

FOR  THE  I*TH  VALUE  OF  HASS  TRAN8FEH 
COEFFICIENT 

NMC 

LOCAL 

NUMBER  OF  ENTRIES  IN  SET  OF  B-PRIHE 

VALUES  FOR  CURRENT  SURFACE  TABLES 

NHG(l) 

ENRGY 

NUMBER  OF  TABULAR  HASS  TRANSFER 

COEFFIENT  ENTRIES  TMG(  )  IN  I«TH  SURFACE 
THERMOCHEMISTRY  TABLE 

NHT 

BLANK 

NUMBER  OF  MATERIAL  PROPERTY  TABLES 

NN 

ULANK 

NUMBER  OF  COLUMNS  IN  NODAL  GRID 

NNODE 

PARAH 

MAXIMUM  NUMBER  OF  NODES  ALLONED 

NNPR(i) 

BLANK 

STORED  COLUMN  INDEX  OF  I*Th  OUTPUT 

NODE  TEMPERATURE  IN  AN  OUTPUT  LINE 

NOPT 

**»►* 

LOCAL 

NUMBER  OF  OPTION  S*lTCNl8  IN  CURRENT 

TIME  TABLE 

NPG 

LOCAL 

CURRENT  PAGE  NUMBER  FOR  OUTPUT  LISTING# 

USED  IN  COMMUNICATION  *ITH  LCOUNT 

• 

NPGl 

LOCAL 

SAVED  VALUE  OF  NPG 

NPR 

ENRGY 

NUMBER  OF  SURFACE  THERMOCHEMISTRY 

tables 
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LIST  BF  VARIABLE  NAMES  FBR 
itwuTMfeWM  AXI-SYMMETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATI0N  PH06NAK  (ASTHMA) 


RiUTINEl  ASTHMA 


variable 

UNITS 

STBRACE 

NK 

lbcal 

NS 

LBCAL 

NSEN 

•MM* 

LBCAL 

NST 

LBCAL 

NTH 

lbcal 

PIb 

FTP/IN2 

blank 

PLA(I) 

FT 

BLANK 

PLB(I) 

FT 

BLANK 

PCBS(J) 

FT 

BLANK 

PLCU) 

FT 

BLANK 

PLOCI) 

FT 

BLANK 

NUT  CURRENTLY  USED 

TSTAL  CURRENT  NUMBER  BF  NBN»NULL  NBDE3 

NUMBER  BP  ENTRIES  IN  CURRENT  PRBitN 
EDGE  TABLES 

INPUT  FLA6»  N0N»4EKB  CALLS  F0R  REFUSE 
BP  CURRENTLY  SIBKED  SURFACE 
THERMBCHEMISTRY  TABLES 

INOEX  PBR  TIME  TABLE  ENTRY 

CBN8TAN1  PI/IA4 

PATH  LENKTH  IN  NBDE  I  FKBM  NBOAL  CENTER 
TB  CENTER  BF  FACE  BBRPERINfc  PRECEDING 
CSLUHN  (BETWEEN  N8UE  I  AND  NUDE  l-HH) 

PATH  LENGTH  IN  NBDE  I  FRBN  NBDAl  CENTER 
T«  CENTER  8F  FACE  BBROERING  NEXT  NBDE 
(!♦!)  US  HEATED  SURFACE  IF  1  IS 
A  SURFACE  NIDOE 

SAVED  SUM  »F  ORIGINAL  VALUES  BF  PlB*PLD 
FBR  THE  CUKRENI  SURFACE  NBDE  IN  COLUMN  J 

PATH  LENGTH  IN  NBDE  1  FRBH  NBDAL  CENTER 
CENTER  BF  FACE  BBROERING  NEXT  CBLUHN 
(BETWEEN  NBDE  I  AND  NBDE  l*MM) 

BR  BF  RI'Si'T  FACE  IF  I  IS  IN  LAST  CBLUHN 

PATH  LENGTH  IN  NBDE  I  FRBH  NBDAL  CENTER 
T3  CENTER  BF  FACE  BBROERING  PHfcCWjN« 
N«DEU*1>  BR  BF  8BTTBM  FACE  IF  I  IS  IN 
FIRST  R«" 
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LIST  OP  VARIABLE  NAMES  FOR 
AER0THERM  AXl-SYMMETRIC  TRANSIEN? 

HEATING  AND  MATERIAL  ABLATION  PR0GKAM  (ASTHMA) 


ROUTINE!  ASTHMA 


variable 

UNITS 

STORAGE 

DESCRIPTION 

4 

PR(J) 

ATM 

BLANK 

VALUE  OF  CURRENT  PRESSURE  AT  COLUMN 

J  A8  DETERMINED  BY  INTERPOLATION  IN  IN¬ 
PUT  TIME  TABLES 

•v 

PRT 

SEC 

BLANK 

NEXT  OUTPUT  TIME 

PRTI(I) 

SEC 

L0CAL 

I-TH  OUTPUT  INIEHVAL(OPTIONAL) 

P8V 

ATM 

LOCAL 

SAVEO  VALUE  OF  PRESSURE  IN  SURFACE 
THERMOCHEMISTRY  TABLES 

QCHM(J) 

BTU/FT2-SEC 

blank 

SAVED  VALUE  OF  SURFACE  ENERGY  FLUX 

TERM  8-CHEM  AT  COLUMN  J 

GCHHT(J) 

BTU 

blank 

SAVED  VALUE  OF  TIME  AND  SURFACE  AREA 
INTEGRATED  VALUES  OF  BCHM(J) 

acNvtj) 

BTU/FT2-SEC 

BLANK 

SAVED  VALUE  OF  SURFACE  CONVECTIVE 

ENERGY  FLUX  TERM  FOR  COLUMN  J 

acNVT(j) 

BTU 

BLANK 

SAVED  VALUE  OF  TIME  AND  8URFACE  AREA 
INTEGRATED  VALUES  OF  8CNVIJ) 

GCONDTU) 

BTU 

BLANK 

SAVED  VALUE  OF  1 IME-AND  SURFACE-AREA 
INTEGRATED  VALUES  OF  GNP(K)  FOR  ALL 

NODES  K  IN  COLUMN  J 

QNP(K) 

8TU/FT2-SEC 

BLANK 

SAVED  VALUE  OF  SURFACE  HEAT  CONDUCTION 

ENERGY  FLUX  1NI0SOLID  AT  NODE  K 

QNTI 

BTU 

LOCAL 

TIME  INTCRATED  VALUE  OF  TOTAL 

SUBSURFACE  ENERGY  STORAGE  FROM  IN111AL 

TIME 

• 

QNTS 

BTU 

BLANK 

TIME  AND  SURFACE  AREA  INTEGRATED  VALUE 

OF  TOTAL  HEAT  FLUX  CONDUCTED  FROM  HEATED 
SURFACE  INTO  INTERIOR  FROM  INITIAL  TIME 

LIST  BF  VARIABLE  NAMES  FBR 
AERBTHERM  AXI-8YMMETRIC  TRANSIENT 
HEATING  ANO  MATERIAL  ABLAT1BN  FR0GRAM  CA8THMA) 


RBUTINEl  ASTHMA 


VARIABLE 

UK;?* 

ST9RAGE 

OESCRIPT10N 

Wmmmmm* 

GRAB(J) 

BTU/FT2 

BLANK 

SAVED  VALUE  BP  RADDTI0N  FLUX 

AB80RBED  AT  >}H  SURFACE  R0INT 

URABT(J) 

BTU 

BLANK 

SAVED  VALUE  0P  TIME  AND  SURFACE  AREA 
INTEGRATED  VALUE  0F  URAD4J) 

GRADUJ 

BTU/FT2-SEC 

BLANK 

SAVED  VALUE  0F  RADIATED  FLUX  AwAV  FR0M 
HEATED  SURFACE  AT  J-TH  C0LUMN 

URADTlJ) 

BTU 

BLANK 

SAVED  VALUE  0F  TIME  AND  SURFACE  AREA 
INTEGRATED  VALUES  0F  ORADU) 

ttSUM 

BTU/SEC 

BLANK 

ACCUMULATED  10 VER  8URFACE  R0INTS)  SUM  0F 
AREA  INTEGRATED  VALUES  0F  SURFACE 

HEAT  C0NDUCT I0N  ENERGY  FLUX  INTB  S0L1O 

GWL 

BTU/SEC 

BACK 

CURRENT  ENERGY  FLUX  INTB  CBNSIDERED 

NBDE  FRBM  BACK-HALL  BBUNDARY  C0ND1T10N 

G*L3 

BTU/SEC 

L0CAL 

summed  value cbver  all  back-wall  nbdesj 
BF  UhL  at  current  1IME 

R 

IN 

LBCAL 

RADIUS  BF  CURRENT  SURFACE  R0INT 

RAID 

BTU/SEC- 

DEGR 

BLANK 

CBNDUCTANCE  BE  1  WEEN  NBDE  I  AND  NEXT 

N0DE  T0  THE  RIGHT  (NBDE  I*MM) 

RANK 

DEG  R 

L0CAL 

ADDITIVE  CBNVtKSIBN  C0NST ANT  T0  CBNVERT 
DEG  F  T0  DEG  r 

RAT 

L0CAL 

RAT10  0F  CURRENT  NBDAL  C0LUMN 

CENTERLINE  LENGTH  \£  1NITAL  NBDAL 
CBLUMN-C ENTERLINE  LENGTH 

RBU) 

btu/sec-oegr 

BLANK 

CBNDUCTANCE  BETWEEN  NBDE  1  AND  NEXT 

NBDE  UP  UM) 
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LIST  k)F  VARIABLE  NAMES  FUR 
AER0THERM  AXI»8YMMITRIC  TRANS'lENT 
HEATING  AND  MATERIAL  ABLATION  PRf GRAM  (A8T:HMA) 


R0UTINE8  ASTHMA 

variable 

UNITS 

STBRAGE 

DESCRIPT I0N 

REC0RDT  ) 

LBCAL  : 

'  ‘  '  ’  1 
•  :  ,  1 

ALPHAMERIC  TITLING  INFBNMATI0N  FR0M 

FIRST  THREE  CARDS  READ  1 

RET(lrJ) 

BTU/LB 

BLANK 

'  I 

,  I-TH  ENTRY  IN  J-(H  TIME  TABLE  0F 

REC0VERY ,  ENTHALPY (0P7I0N  1}  1 

0R  ,  ASSIGNED  SURFACE  TEMPERATURE 
(0PTI0N  2) 

R0 

LB/PT3 

BLANK 

‘ablating  material  density 

KSV 

FT 

L0CAL 

N0T  CURRENTY  USED  IN  ASTHMA1 

NT (I» J) 

LB/FT3 

BLANK 

l 

X-TH  ENTRY  IN  J-TH  MATERIAL  i 

PR0PERTY  TABLE  F0R  DENSITY,  0NLY 

RTUfl)  IS  USED 

I  t  1  t 

SGEP 

BTU/FT2 

3EC-DECR**4 

BACK 

PR0DUCT  0F  SIG  AND  EMITTANCE  0F  A  . 

BACK  HALL  NUDE  -  ■ 

S34EP 

BTU/FT2- 

8EC-DEGR**4 

BACK 

i 

EQUALS  4  TIMES  SGEP  1 

i 

5  1  1 

BIG 

BTU/FT2- 

SEC-DEGR**4 

BLANK 

STEF AN-B0LUMANN  CONSTANT 

*  *  1 

SINAC(I) 

BLANK 

1 

8IME  0F. ANGLE  BETWEEN  TBP'FACE  0F  k  NUDE 
(BETWEEN  I  AND  141 )  AND  LINE  BETWEEN 
N0DAL  CENTERS  I  AND  I*i 

SINAI)  ( 1 ) 

blank 

SINE  0F  ANGLE  BETWEEN  RIGHT  FApE  0F 

N0DE  (BETWEEN  I  AND  I+MM)  AND  LINE 

BETWEEN  N0OAL  CENTERS  1  AND  I*MM, 

1  ’ 

SR(J) 

IN 

BLANK 

RADIUS  0F  SURFACE  PB1NT  IN1 C0LUMN  J 

STAB 

BTU/FT2-3EC 

BACK  ! 

EXTRA  TERM  IN  DEN0MIN/It0R  UP  STABILITY 

LIMIT1 F0R  TIME  STEPS  DERIVING, 
FR0M  BACK-WALL  TtRMS 


l 
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LIST  OF  VARIABLE  NAMES  FUR 
AEHOTHERM  AXI-SYMMETRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATION  PROGH/.M  (ASTHMA) 


ROUTINE!  ASTHMA 

VARIABLE 

UNITS, 

STORAGE 

DESCRIPTION 

3£(  J) 

IN 

BLANK 

AXIAL  COORDINATE  OP  J-TH  8URFACB  POINT 

1A(l) 

DEG  R 

BLANK 

OLD(PREVIOUS)  TEMPERATURE  OF  NODE  I 

TB(I) 

BTU/3EC 

,OEGR 

BLANK 

NET  HEAT  FLUX  INTO  NODE  I#  LATER 

BECOMES  NEh  TEMPERATURE  OF  NODE  1 

TBHP(IrJ) 

wnm 

BLANK 

I»TM  ENTRY  IN  J-TH  TIME  TABLE  FOR 

BLOWING  reduction  parameter  LAMBDA 

TCHEMd  j  J,K) 

.  BTU/LB 

ENRGV 

initially  read  as  z*enthalpy  urm  for 

BOTH  EDGE  AND  SURFACE  TABLES,  FOR  EDGE 
TABLES  IS  STORED  IN  TZ8EN,  FOR  SURFACE 
TABLES  18  FIRS)  MODIFIED  TO 
•CHEMICAL  PRODUCTION*  TERM  AND 

THEN  TO  CM/CHHREM  PROD-HU,  FOR  1MH 
ENTRY»J*TH  TRANSFER  COEFFICIENT t  AND 

K«TH  PRE88URE 

I 

TCPSfcN(I,K) 

BTU/LB 

DEGR 

ENRGY 

SLOPE  OF  THSEN  VS,  Tw  AT  WH 

TEMPERATURE  IN  K«TH  EDGE  TABLE 

TCZSEN(l*K) 

i 

BTU/LB 

O 

V* 

o 

X 

LOCAL 

DERIVATIVE  OF  FROZEN  EDGE  GAS  Z*EMHALPY 
(TZ8EN)  WITH  RESPECT  TO  TEMPERATURE  AT 
I»TH  ENTRY  IN  K*T H  EDGE  TABLE 

TH 

* 

SEC 

BLANK 

CURRENT  TIME 

IMF 

SEC 

i 

BLANK 

FINAL  PROBLEM  {INE 

THP 

SEC 

LOCAL 

OUTPUT  INTERVAL 

THSENdfK) 

BTU/LB 

ENRGY 

VALUE  OF  FROZEN  EDGE  ENTHALPY  HEW  AT 

1*TH  TEMPERATURE  IN  K*TH  TABLE 

THT (If J) 

se'c  ■ 

blank 

VALUE  OF  TIME  AT  l*TH  ENTRY  IN  J-TH 

TIME  TABLE 


i 
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LIST  OF  VARIABLE,  NAMES  FOR 
AEROTHERM  AXI-8YMMETHIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATION  PROGRAM  (ASTHMA) 


ROUTINtI  ASTHMA 


VARIABLE 

UNITS 

STORAGE 

DESCRIPTION 

*«**»*•*«•« 

IHZ(I*J) 

BTU/LB 

BLANK 

VALUE  OF  SENSIBLE  ENTHALPY  OF  MATERIAL 

J  AT  1-TH  TEMPERATURE  IN  MATERIAL 
PROPERTY  TABLE 

TLMC(I»JfK) 

ENRGV 

tabular  value  bf  ln  h-prime  AT 

AT  I*TM  ENTRY*  J-TH  TRANSFER 
COEFFICIENT*  IN  K«TH  SURFACE 
THERMOCHEMISTRY  table 

TMPR(K) 

DEG  R 

BLANK 

8HALL  ARRAY  FILLED  KITH  NODAL 
TEMPERATURES  FOR  ONE  LINE  OF  OUTPUI 

!HG(J*K) 

LB/FT2-SEC 

ENRGY 

J-TH  ENTRY  IN  iRANSFtR  COEFFICIENT 

TABLE  FOR  K-TH  THERMOCHEMISTRY  TABLE 

TPHI*  J) 

ATM,LN  ATM 

BLANK 

I-TH  TABULAR  VALUE  OF  PRESSURE  IN  J-TH 
TIME  TABLE  (CONVERTED  TO  LN  FORM  AFTER 
INPUT) 

TPN(I) 

SEC 

LOCAL 

SPECIAL  TIME  FOR  PUNCHED  OUTPUT 
OPTIONAL) 

TPR(K) 

ATM,LN  ATM 

ENRGY 

TABULAR  VALUE  »F  PRESSURE  FOR  K-TH 
SURFACE  THERMOCHEMISTRY  TABLE*  LATER 
CONVERTED  TO  LN  FORM 

TPTCGU) 

SEC 

LOCAL 

I-TH  TIME  OF  CHANGE  IN  OUTPUT  INTERVAL 
(OPTIONAL  FEATURE) 

TOR(I»J) 

BTU/FT2-SEC 

BLANK 

I-TH  ENTRY  FOR  RADIATION  FLUX  TO  HEATED 
SURFACE  IN  J-TH  1IME  TABLE 

TRE3 

DEG  R 

BACK 

RESERV&TH  TEMPERATURE  COMMUNICATING 

KITH  BACK-nALL  NODES 

TR2 

DEG  R**2 

BACK 

SQUARE  OF  IRES 

TR4 

DEG  R**4 

BACK 

FOURTH  PONEH  OF  IRES 
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LIST  IM"  VARIABLE  NAMES  MSM 
AEK0THERM  a:U«SYMMETRIC  TRANSIENT 


HEATIN6  AND 

MATERIAL 

ABLATION  PROGRAM  (ASTHMA) 

RBUTINEl  ASTHMA 

VARIABLE 

UNITS 

STORAGE 

DESCRIPTION 

T5(J) 

DEG  R 

BLANK 

TEMPERATURE  OF  J-TH  SURFACE  POINT 

TSENUJ 

BTU/LB 

LOCAL 

READ  IN  AS  ENTHALPY  IN  FROZEN  EDGE 

TABLE3  AND  NALL  ENTHALPY  IN  SURFACE 
THERMOCHEMISTRY  TABLES  BUI  LATER 
CONVERTED  TO  FROZEN  EDGE  ENTHALPY  AT 

NALL  TEMPERATUHE 

TSURF(I) 

LOCAL 

ALPHAHERIC  NAME  OF  SURFACE  SPECIES 

FOR  l-TH  ENTRY  IN  CURRENT  SURFACE  TABLES 

IT (I» J) 

DEG  R 

BLANK 

I-TH  ENTRY  FOR  TEHPERATURE  IN  J-TM 
MATERIAL  PROPERTY  TABLE 

TTMX(J) 

DEG  R 

BLANK 

MAXIMUM  TEHPERATURE  IN  J-TH  MATERIAL 
PROPERTIES  TABLE 

TTSUfJfK) 

DEG  H 

ENKGY 

TABULAR  VALUt  OF  TEMPERATURE  AT  l-IH 
ENTRY* J-TH  TRANSFER  COEFFICIENT  »  K-TH 
SURFACE  THERMOCHEMISTRY  TABLE 

ITSEN(IfK) 

DEG  R 

ENRGY 

I-7H  TABULAR  VALUE  OF  TEMPERATURE  IN 

K-TH  FROZEN  EDGE  TABLE 

TRL 

DEG  R 

BACK 

TEMPERATURE  OF  BACKFALL*  NEEDED  FOR 
CALCULATION  OF  RADIATION  FLUX  AT  A 
BACKFALL  NODE 

TZ 

DEG  R 

LOCAL 

DATUM  TEMPERATURE  (536  DECK) 

TZSEN(1* K) 

BTU/LB 

LOCAL 

I-TH  ENTRY  FOR  Z-ENTHALPY  TERM  IN  K-TH 
FROZEN  EDGE  T ABLE 

U(J) 

BTU/3EODEGR 

BLANK 

THERMAL  CONDUCTANCE  BE i NEE N  NODAL  POINT 
OF  SURFACE  NODE  IN  J-TH  COLUMN  AND  J-TH 
SURFACE  POINT 

VFZ 

LOCAL 

NOT  CURRENTLY  USED  IN  ASTHMA 

LIST  0F  VARIABLE  NAMES  FOR 
AENBTHERH  AXI»3YMM§TRIC  TRANSIENT 
HEATING  AND  MATERIAL  ABLATI0N  PR06RAM  (ASTHMA) 


RBUTINEI  ASTHMA 


VARIABLE 

UNITS 

STORAGE 

VFKI) 

BLANK 

VF4CI)  ' 

BLANK 

VIIER(I) 

•-«0R  DEG  R 

BLANK 

VK 

mm* 

LOCAL 

VK1N 

BLANK 

VOLU) 

FTS 

BLANK 

VR 

LK 

ml  a 

LttCAL 

MIS 

•  •• 

LOCAL 

Y2(I) 

VARIES 

LOCAL 

l 

IN 

LOCAL 

ZRO 

VARIES 

BLANK 

DESCRIPTION 


OPTION  l  VIEW  FACTOR  FOR  N0DE  I 

OPTION  3  VIEW  FACTOR  FOR  N0DE  I 

VALUE  OF  independent  variable  IN  SURFACE 
ENERGY  BALANCE  SEANCH  AT  I*TH  ITERATION 
F0R  CURRENT  SURFACE  P0INT  CONSIDERED 

FLOATING  VALUE  OF  UTILITY  INDEX 

NOT  CURRENTLY  USED  IN  ASTHMA 

VOLUME  OF  NODE  I 

TABULAR  INTERPOLATION  RA1IB  RETURNED  BY 
LOOK  SUBROUTINE 

UNEUUAL  DIFFUSION  EXPONENT 

SAVED  VALUE  OF  RLQ 

UTILITY  VARIABLE  USED  FOR  OUTPUT 
INTERPOLATED  FROM  LOOK 

AXIAL  LOCATION  SC  CURKkN  "URFACt  POINI 

FLOATING  ZERO 


SECTION  3 


FLOW  CHARTS 

Computer  generated  flow  charts  were  produced  and  are  given  in  this  section. 
The  flow  charts  show  transfers  as  lines  on  the  right  edge  of  the  figures  and 
Do-loop  blocks  on  lines  on  the  left  edge  of  the  figures.  Routines  are 
presented  in  alphabetical  order. 


lUUQUOUOUUOUO' 


ARCAST 


PRSE  NO  1 


, _ A _ 

E  * 

++*+»++***+**+*+*•+*+***«+**++ 

ARCAST  PROfiRRM  * 

« 

444.  4444444444444444444 444 4444444444 4*444 44*4444444444444444444444444*4 

* 

SEE  THE  FULL  LISTING  OF  THIS  ROUTINE  FOR—  ♦ 

+  DIMENSION  STATEMENTS  ♦ 

+  COHMON  STATEMENTS  * 

+  INCLUDE  STATEMENTS  ♦ 

+  EQUIVALENCE  STATEMENTS  « 

+  DATA  STATEMENTS  * 

« 

C444444444*4444444444444444444444444444444444444444444444444444*»**44444 

c  * 

100  FORMAT! 2 13- 10ES.4.7I1) 

101  FORMAT!4E7,3) 

302  FORMAT! 4 I l.  I2.8E6  ,*l> 

103  FORMAT !  12.  F8  .2 . 5F10  .5) 

9030  FORMAT !  12 . 8E6 .4  > 

304  FORMAT ! IH1.25X, 7 1HAEROTHERM  RXI-SYMMETRIC  TRANSIENT  HEATING  AND  MR 
1TEMAL  ABLATION  PROGRAM/ U3X-4HPAGE,  13// ) 

305  FORMAT! 12AE) 

306  FORMAT!// L1H  INPUT  OHTR//27H  DIMENSIONS  OF  INPUT  DATA// 1 14 H  TI 

1ME  SEC  TEMPERATURE  DEG  R 

2  DENSITY  LB  PER  CUBIC  FT/112H  SPECIFIC  HEHT 

3  BTU  PER  LB  OEG  R  CONDUCTIVITY  BTU  PER  FT  SEC  DEG  R  EMIS 

4SIVITY  DIMENSIONLE5S/105H  HEAT  COEFFICIENT  LB  PER  SO  FT 

5  SEC  ENTHALPY  BTU  PER  LB  NODAL  COORDINATES 

GINCIES/44H  RESISTANCES  SO  FT  SEC  DEG  R  PER  BTU///20H  PRO 

7GL.EM  CONSTANT S//85H  MHflX  NMAX  INIT  TIME  FINL  TIME  PRNT 

8TIME  TIME  INCR  TIME  CNST  /> 

307  FORMAT I//20H  NODAL  COORD1NATES//5X. 1HI. 5X, 1HJ .  3X, SHRC!IN>, 7X, 6HZ 
lC!IN>,7X-SHRN!IN).?X,6H2N!!N>/> 

308  FORMAT! L3H  NODAL  OATA//97H  MBTL  THTA  SIDE  FNTB  HTTB  HEHT  CNS 

IT  INIT  TEMP  CONT  RES  A  CONT  RES  B  VF1  VF3/> 

309  FORMAT !29H  MATERIAL  PROPERTIES  TABLES/ > 

310  FORMHT!/15H  MATERIAL  NO.I3//73H  TEMP  DENSITY  SPEC 

1HEAT  CONDUCT  EMISSIV  CONOUCT2/) 

311  FORKAT(//25H  HEATING  TABLES.  OPTIONI2/) 

312  FORMAT! 1PH  HEHT  TABLE  N0.I3//50H  TIME  HEAT  COEFF  RECOV 
1  ENTH  RAD  FACTOR/ > 

313  FORMAT !//22H  HALL  ENTHALPY  TABLE//34H  TEMP  ENTH  l 
1  ENTH  2/) 

3 14  FORMAT!  LX. 2I5.5X. 6<E1 1 .4 .  lX>//> 

315  FORMAT!  IX.  6E12  .4 ) 

316  FORMAT! IX. 5I5.2X.6<IP1E11.3.1X)> 

3 If  FORMAT! IPH  HEAT  TABLE  N0.I3//37H  TIME  TEMP  RECOV 

1  ENTH/ > 

318  FORMAT!3X.  13 . 3X.  I3-IX.4E13.5) 

319  FORMAT!/// 12H  OUTPUT  DATA// 28 H  DIMENSIONS  OF  OUTPUT  DRTTV/118H 

L  TIME  SEC  QTOT.  SUR,  INT  BTU 

2  CONVECTIVE  HEAT  COEFF  LB  PER  SO  FT  SEC/115H  TEMPERHT 

3URE  OEG  R  ONET  AND  QCONV  BTU  PER  SO  FT  SEC 

4  QTOT  BTU  PER  SQ  FT// > 

320  FORMAT!2IG> 

321  FORMAT !  12. 10  EP.  5) 

322  FORMAT <//3QH  H  VS  TEMPERATURE.  TABLE  NO.  I2/3X4HTEMP9X1HH8X4 HTEMP 
19XIHH8X+HTEMP9X1HH8X4HTEMP9X1HHBX4HTEMP9X1HH) 

323  FORMAT!//23H  H  VS  TIME.  TABLE  NO.  I2/3X4HTIME9X1HH8X4HTTME9X1HH8X 
14HT1ME9X1HH8X4HTIME9X1HH8X4HTIME9XIHH) 

324  FORMAT! 10E11. 3 > 

332  FORMAT!/  11 1H  NODE  TEMP  NODE  TEMP 

1  NODE  TEMP  NODE  TEMP  NODE  TEMP/) 

333  FORMAT !  10X.5  !I5, 14.E12  .4 )  > 

334  FORMAT! 16X, 

1  72H  TIME  OTOT.SUR  QTOT, INT  CHSV  ENER  CRNODE 

2  ITER  NODE  D-TIME.2X.UH  ACT  D-TIME/) 

335  FORMAT! L8X.4 !Ell .4, IX). 213, I5.2EL3 .5/) 

337  FORMAT!/  /  L1X,  2 14 , 5EL2 .4  ) 

534  FORMAT  !1H  //23X-I0H— TIME  OEPENOENT  BOUNDARY  CONDITIONS - /IH  > 


3-2 
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j 


I 

I 


i 

t 

5 


i 


■i 

i 


V 

i 


J 


L8X,  8HPRES9URE,3X,  7HBLOWINB/9X,  BH<9EC> ,  7X.  4H0PTN.  3X,  8HENTHALPY.3X 
23HHEAT  RATE. 4X. 5HC0EFF,  14X.9HREOUCTION/28X,8H(BTU/LB).2X.  11HCBTU/ 
3Q  FT-.  IX-  10H<LB/SQ  FT-.  3X,  3H(ATM>.3X.3HPARAMETER  /4QX.7HSECOND). 
44X,7H9EC0ND)> 

5350  FORMAT  <9X.4HTIHE.8X.4HPROB.3X.8HRECOVERY.3X,SHRADIRTION.4X,4HHEA 
15X,8HPRE39URE,3X,rHBLOWINB/9X,5H<3EC>,rX.4HOPTN.3X,8HENTHALPY,3X. 
29HHEAT  RATE, 4X, 5HC0EFF. 14 X.9HREDUCTION/28X. 8H(BTU/LB).2X. 11H<BTU/ 
3Q  FT-,1X,10H<BTU/9Q  FT, 3X,8H<RTM),3X,9HPRRRMETER  /4QX,?HSECOND>. 
44X, 9H-SEC-DGR)) 

536  FORMAT  <6X.  F8 .2.8X.  12 ,4X.  2<F8  ,2.3X> ,  F8 .4 , 3X.F8 .5.3X.F8 ,3> 

537  FORMAT  <1H  /3X, 89HCH/CH0  =  PHI/<EXP<PHI >-l . >  WHERE  PHI  =  2.-»BRP«M 
IDOT/CHO.  BRP  IN  TABLE) 

598  FORMAT(//2?X$QH — SURFACE  EQUILIBRIUM  ORTA-—) 

552  FORMAT  (9X.4HTIHE. 8X.4HPR0B. 3X. 7H3URFACE, 4X.7HSURFRCE/9X.5H(SEC>, 
17X. 4H0PTN, BX, 4HTEHP. 8X, 9HRECES9ION/ 28X, 7H(QEG  R).BX.6H(MIL9>> 

556  FORMAT  <9X.4HTIHE. 8X.4HPRQB. 5X. 4HV IEW. 5X. 9HRADIATI0N/9X. 5K(SEC>. 
17X. 4HOPTN, 4X, 6HFRCTOR . 4 X , 9HHEAT  RATE/38X. 11H(BTU/SQ  FT-/40X. 
27H9EC0ND)) 

5T80  FORMAT < E6  . 4 , 8X. E8  . 5  , E6  . 4  . F4  ,2.E7  .5 . 6X. 2E8  .5.  A6.  II,  L2X.  12) 

5781  FORMAT <E8  .4 ,  E8  .5 , 3X,  E6  .4  .  F4  .2 ,  E7 .5 , 6X, 2E8  .5. A6, II.  12X,  12) 

5782  FORMAT <E6  .4 . 8X.  E6  .4 . E6 .4  ,  F4  .2 .  E7 .5 . 6X. 2E8  .5.  A6.  II.  12X.  12) 

8789  FORMRT(//6X, 14HXINETICS  PRM  =EL0 .3 ,8X, 10HPRESBURE  =,F8.*,4H  ATM//  I 
17X. 2<4HTEMP, 5X. 26HM-DQT-  CHEM.PROD  SURFACE. 3X)/6X.2<36H(DEG  R>  | 
2CHRR/CM  <BTU/LB)  SPECIES, 2X)) 

5790  FORMAT  (6X.26HNO  RADIUS  CORRECTION  ON  CH>  j 

5791  FORMRT<3F8 .5 . F9 .4 . F5 .3 . 2F9 .3. 12-2X. R6  >  I 

5792  FORMAT<//6X.3HP  =,F9.4,4H  ATM//6X,3<25HTEMPERRTURE  EDGE  ENTH  >/ 
16X. 3  <25H  <OEG  R)  AT  T-WALL  >> 

5793  FORMAT  <//6X.37HBRD  SURFACE  EQUILIBRIUM  TABLE  OF  TYPE, 12) 

5794  FORMAT  <//SX. 74HEQURL  MRSS  AND  HERT  TRANSFER  COEFFICIENTS  AND  EOU 
1L  DIFFUSION  COEFFICIENTS) 

5795  FORMAT <5X.  F8 .2 . 2X.  F7  .4 . 2X. F8  .2 . 4X.  A6.  IX. F8 .2. 2X. F7  .4 . 2X. F8  .2 . 4X,  A6j 
1) 

5798  FORMAT <2F 10 .0,3(9X,tl),5(Il,F5.0)) 

5797  FORMAT <//6X. 45HRATIO  OF  MHSS  TO  HEAT  TRANSFER  COEFFICIENTS  =,F6.3/ 
l  6X,28HUNEQUflL  DIFFUSION  EXPONENT  =,F6.3> 

5798  FORMAT  <6X.F9 .2.4X, F9 .2.3X, F9 .2. 4X. F9 

22.3X.F9.2,4X.F9.2) 

5799  FORMAT  (6X.66HHEAT  TRANSFER  COEFFICIENT  MULTIPLIED  BY  (R  INITIAL/ 

1  CURRENT)**l .8 ) 

581  FORMAT </94 X20H8ACK  WALL  CONVECTIONLOX9HBACK  WRLL10X9HRE9ERVOIR/ 
132X23HCOEF  BTU/FTSO-SEC-DEG  R8X10HEM1SSIV1TY8X1 IHTEMPERHTURE/ 
237XF10  .4, 18XF6 .3, 10XF1O.2) 

819  F0RMAT<25H1QUT  OF  RANGE  OF  H  TABLES/5X7H  TEHP=  E9 .4 , 10X6HTIHE=  E9 . 
14) 

320  FORMAT(54H  IS  LARGER  THAN  THE  i-AST  ENTRY  IN  THE  HALL  ENTH.  TABLE) 

821  cORMRT (55H  IS  SMALLER  THAN  THE  FIRST  ENTRY  IN  THE  WALL  ENTH. TABLE: 

822  FORMAT<24H0THE  TEMPERATURE  OF  iODE2IO 

823  F0RMAT<49H1S  LARGER  THAN  THE  LAST  ENTRY  IN  MATL.  PROP.  TAB. 13) 

824  F0RHHT<51H1S  SMALLER  THAN  TH£  FIRST  ENTRY  IN  MATL.  PROP.  TAB. 13) 

C - GENERAL  CONSTANTS 

FV=  .5 

FT=. 083333333 
RANK  =  489.688 

ZR0=0 .0  i 

PIB=. 021816616 

INCH=5 

INPUT =5 

KOUT=6 

SIG=.48 IE-12 
NPG-l 

C - MAIN  INPUT  BLOCK  INCLUOIN6  OUTPUT  LISTING  OF  INPUT 


228  WRITE  (6.304)  NPG 

READ  <5.303)  (RECOROC I) . 1=1.36) 

WRITE  (6,305)  (RECORD! I) , 1=1,36 > 

WRITE  (6,306) 

READ  (5.300)  MM, NN, TH I . THF , THP, DLTH. ETA, 0H2, BRP, HCONV, EPSW, TRES, 
IK ASE . KSTRP. KRESC , KSLOP,  KCENT,  KLOG. KORTG 
KSLOP=KSLOPH 
KRESC=KRESCH 


fwcnsr 


RRCflST 


PB6E 


201  HRITE  <6-316 >  MRTLOO. KTH<K>.KSH<IO,KH£<K> , lOTKIO. CO 

l<tO/Tfl<!0 .  CRAOO .  CR8<K>.  VF1  <K ) ,  VFS  <K> 


CflU-  LCOUNT<2-LCT,hP0,RECQRO<35>> 
HRITE  (6.303) 

READ  <5,303)  NMT 

J-0 


202  J=J+i 

CALL  LCOUNT <5.LCT,NPG.RECORO<35>> 
HRITE  <6.310)  J 

1=1 


3-1 


fwcflsr 


PRse  no  r 


61 


flRCflST 


PA6E  NO  « 


3-10 


i 


3-11 


fttCflST 

PAGE  NO  1 

i 

3-12 


flRCWT 


f»«se  NO  12 


fWCNST 


PAGE  NO  IS 


flRCRST 


PR9€  NO  IB 


fWCBST 


PR6E  NO  It 


« 

JS 

1 

1 

11! 

1  <t 

T 

£ 

ARCR9T 


PR6E  NO  It 


M58  GONTINUE 

CALL  SSHTCHO.  JJ> 


60  TO  mO.7UJ.JJ 


710  CALL  LCQUNT <LU_4S .  LCT ,  NPG,  RECORDC33  J> 


flUCUST 


rase  ho  20 


/ 


2663  WRITE  (KOUT.5T90) 


2662  TPR<IPN)-P9V 
TMSaN,  IPN>=QM9 
TLMCO.  IN.  IPNWLHCCJ.I.  IP> 
TTS  <1.  IN.  3PN2-1T8  <J,I.1P> 
TCHEM< 1. IN. IPN>=TCHEH<J , I.  1P> 
TSURFa>=TSURF<J> 
T3EN<1)=T9EN<J> 

J=1 

1=IN 

lPnlPN 


GO  TO  2600 


2670  NPR=IP 
IR<12>=1 
!LOa2)=l 


DO  2872  1=1. IP 


2872  TPR<I>=HLOG<TPRa» 


IR<13>=1 

IHI<13>=NPR 

IL0<13>=*1 

HRITE<K0UT,713> 

WRITE(K0LTr.7l2>  NPR.KT.0H2 

CRLL  SSHTCH  <3 . KSSW > 


GO  TO  (700. 1390>. KSSW 


700  CRLL  LCQUMT <  3 , LCT ,  t-PB . REC0R0 <3 5 > > 

WRITE<K0UT.703> 

703  FORMATC//  10X. 43HDUMP  OF  TABLE  IKOICES  NLOa,J>,NWKJ,  J>,KHia,,»> 


DO  701  J=l.NPR 


CRLL  LCOLWT <  3.  LCT,  NPG .  RECCRQ<S 5  >  > 

WRITECKOUT.TCO  J 
703  FORMAT (/ 15X . 6HIPR  =  ,12/lH  > 

L=NMG<J> 

CALL  LC0UNT(L,LCT , NPG.REC0RO<35>> 

WRITE<KOUT, 7 02 >  (NLO< I , J  > .  WI < I . J) , KHI < I . J >.  1=1 , L> 


3-22 


ARCRST 


T02  FORWr<20X,3<2X,I2» 


T01  CONTINUE 


1320  CONTINUE 


DO  TOB  IP=1*NPR 


IF<M18<IP>-1>  TOSUT052/T05 


T05I  1X=6 

HRITE<K0UT,5?93>  IX 


STOP 


7052  N.1C=NHI«,IP> 

NHI<2» IP)=NHI<  t, IP> 

NLOC2. IPi=NLO<t. IPi 
KHI<2-IP>=KHI<l.IP> 
TMB<2,IP>=TM8<l,IP>*1.001 


DO  7053  J=I. NMC 


TTS< J- 2 . IP>  *TTS< J . 1 . IP) 
TLHC<J.2»  IP)=Tl.HC<J.  li  IP) 


7053  TCHEM<J.2.1P>=TCHEM<J,UIP> 


705  CONTINUE 


C - INITIALIZATIONS 

TH=THI 

PRT=THI+THP 

QNTS=HR0 

QNTI=ZRQ 


•SURFACE  IDENTIFICATION  AND  CHECKING 
M=-0 


•292  FORMAT <  /  10X , 33HERRQNEOUS  NOOBL  LAYOUT  IN  COLUMN  ,J3/> 
M=M4-l 


8283  SZO>=>(CZ<J>+CZ<L>>/2 


(WCflST 


PR6E  NO  21 


RRCflf/r 


PRSE  NO  29 


3-30 


3-32, 


50  U<JJ>=RC<I>/HB 


RUCflST 


PASS  NO  34 


RB<I>«0.0 


60  70  61 


51  N»K9H<1)-1 


IF  «eW<I»  6106.8106.5100 


5101  IF  <N)  5105,5105.6100 

_  _  .  ..  - -  ......3 

4 - 

r. 

HMS=HM 

EPSV<I)  -  EM2 


IFCtO  5105.5105.8102 


5102  60  TO  <5103. 5104. 6103). N 


5103  CON<r>-HO 


GO  TO  5105 


nn  on 


fWCflST 


PRSE  NO  35 


3-31 


70  IF  <TT<IT,KT>-TfKL>>  71,71,72 


frncnsT 


POSE  NO  38 


DO  5040  III-l.MM 


IP  <MflTL<I»  5042.5041,8042 


5041  Rfl<Jt>=ZRO 
RB<I>=ZRO 


GO  TO  5040 


5042  KT*IRBS<MRTL<I» 

CRLL  LOOKCKT.  Tfl<  I ) ,  TT  <  t ,  KT) ,  CNT<  1, KT> ,  CNT2  ( 1 ,  KT> ,  CPT<1 ,  ICO  ,  0 .  Y2  (1  > 
1  ,  D2 ( l) ,  3 ) 


IF  <IEX>  500, 501?, 500 


501?  RB<I)=CRFKI)tPLB<I)/HM 
N-KSH<I>-1 


,  IF<N>  502 1,502 L.5018 

■ 

1 

5018  EP3VCI>=Y2<4> 


GO  TO  <50L9. 5020. 5019), H 


5019  C0H<I2=Y2<1) 


GO  TO  5021 


5020  CGN<I)=Y2<2) 


5021  CONTINUE 


3-39 


fWCfWT 


PR8E  NO  39 


3-40 


RRCRST 


8005  IF  <MRTL<L>>  5006. BOOT. 8001 


t 


5008  RR<L>=flfl<I>/<W<L>+PLft<I>/HD> 


60  TO  BOOT 


£ 


5006  RR<U)=PL«a>/<HO^flRa)i  +  RfKLX'HDO.i 
RR<L>=1./RR<L> 


50 OT  CONTINUE 


8049  CONTINUE 


IFCKT)  5052.5052.5053 


ARCflST 


PflSE  NO  4S 


RRCR3T 


°flSE  MO  U 


RRCflST  ' 


.  IF  <HC-OTH?  10 1.78. 76 


A. 


101  0TH=4HC 
HCRIT-III 
NCRITsJJ 


TS  CONTINUE 


•75  CONTINUE 


c .  ; 

C-! - BQ  TO  SURFACE  ENERSY  BRLRNCE  PRCKRGEi 

CALL  9URFB 
C 

C - NEN  TEMPERATURES  LOOP  . 

107  K-0 


i 


00  120  J=1.NN 


00  121  1=1, MM 


K=K+1 


IF  <MRTLOO>  121. 121, 138 


136  IFCCRPOO?  122,121.123 


122  WRITEC6 . 127 )  K 
127  FORMRT<//10X.’26HNESATIVE  CFf’RCITY  RT  NODE  .'13//? 
THF=TH  ! 


SO  TO  46? 


± _ L 


123  IF  <KSH<K>  -1?  124. 125, 1244 


JL 


m 


3-47 


W»CR3T 


flRCRST 


pf«e  no  41 


- OUTPUT  BLOCK 


HSI  CEC=<JNTS/QNTr 

CALL  LCQUNT < 1T+NN,  LCT . NP9, RECQRD<38  >> 

MRITE<6.S3S4>  TH 

3314  FORW<//lX.60<lH«O.Ft.2,eH  9ECCND3,53<1H*>//52X, t3H***0ENERRL***> 
WRITE  <6  330 

HRITE<6 . 338 >  TH,QNT9,QNTI ,  CEG.MCRIT, NCR IT, ITER, DTH3, DTHH 
WRITE  (K  335 > 

336  FORMflT<//49X.20H*«>*HERTED  SURFRCE*~///40X.4QH - MISCELLANEOUS 

L  SURFACE  DATA - //2X.25HRON  COL  OPTN  SURF  SURF.8X.SHH  EDGE. 

28X.6HH  WRLL.3X.40HB  PRIME  MASS  COEFF  CH/CHO  PRESSURE, 4 X. 6 HRR| 
3DIUS. 10X, lHZ/l$X.5fHITER  7EMP<R>  <BTU/L9>  <BTU/LB)  TOT  0 
4LB/FT2-SEC),  14X,5H(ATM>,fc'X.4H<  IN>> 


CftLL  l.CQliNT<8+NN.LCT, hPG.  RECQRD<35 )  > 

MRITE/S , 3360 > 

3360  FORMAT<//'»OX.39H - SURFACE  RRTE  QUANTITIES - //IX. 

I  JIH-LOCRTION-  — RECESSION  RATES — ,8Xil4H—MRS3  RRTES — .20X, 
223H— SURF.VE  ENERGY  FLUX  RRTES—  /ISX.  tOHCMILS/SEC).  13X, 
312H/LB/FT2— EC),29X.  13H<BTU/FT2-SEC>> 

HRITE<6 . 336 i> 


flRCflST* 


PRSE  NO  -19 


3-50 


ARCRBT 


PAGE  NO  SO 


9513  HH«03TT<J >412000. 

HB=Hfl 

HRITE<S . 3366 >  I.  J,  HA, HB.CMTCJ > , CMT< J>, QCNVT<J>. 
1I1CHKT<J  > .  QRABTCJ  > ,  QRRDTCJ  > .  QCONDT<J  > 

9368  FORKAT<2X,I3.1X,I3..3X.2<FU).4,LX>,2X,r<Et0.3,2X» 


9S12  CONTINUE 


C - EXTRA  0IR3NQ9TIC  OUTPUT 

CALL  SSNTCH<4,K8Skl> 


GO  TO  <9498.949r>,X33W 


9496  CALL  LC0UNT<S+2*NN.LCT. NPB.REC0RD<35>> 

9493  F0RMFVK//2X,  10HEXTRA  OUHP/2X.56HI, J . U, VOL.RR. RB. CAP. AR. HB. RC.  AD. PL 
IB. PLB3. EMN.PLA.PLC.PLD// > 

K=>0 


DO  9490  J=1.NN 


DO  9480  1=1. MM 


IF<K3H(K>-1>  9490. 9491. 349*0 


9491  WRITER.  9492 >  I.  J , U<J > .  VOLOO .  RA**  ' ,  RBOO.CRP<K>, RRCtO. RBCK>.  AC<K> 
l.P.D<K> .  PLB<K>, PIB3(J> . EMN<J  >,  PLR^K'' ,  PLCOO,  PLDGO 

9492  FORMAT<2X. 13.2X. 13. 10E11 .3/ 10X.5E1 l ,3> 


9490  CONTINUE 


CALL  LC0UNT<3+NN, LCT, NPG. RECQRDC3B  >  > 

HRITE<6,9503> 

9503  FORMAT<//2X, 40H1 . J. D5DT. DSDTB, OS, OST. DSTT. MRTL. KSH, KSUR/> 
K=0 


DO  5500  J=1,NN 


IFOOHOO-l )  3500,9501.3300 


IF<MATL<IO>  1*20, 140, #41 


RRCflST 


PAGE  NO  83 


8450  CONTINUE 

Z=<CZ<LL>+CZ<LR>>/2 .0 
r=<cr<ll>+cri:lr>)/2.o 


GO  TU  8452 


8451  IF<MRTL(K>)  8454,844,8453 


8459  Z=<CZa.L)+CZ<l.R)+CZ<l.L+l>+CZ<LR+l)>/4. 
R=<CR<LL?+CR<LRJ+CR<LL+1 )+CRCLR+l> > /4 . 


GO  TO  8452 


8464  Z=«CZ<LL>+CZ<LR)>/2.+SZ<J>>/2. 
R=«CR<LLMCR<LR)>/2.+3R<J)V2. 


84 B2  CONTINUE 

PUNCH  848.  R.Z.  TROO,  I,  J.  MATi.<K>,TH,RECORD(96>,RECGRD(36>.  N,  NS 
846  FORMRT  C3F10 .3 . 8HININOEGR. 13, 1H/ , 13. 3HHRT. 12. F7 .2 . 2HS  .2RS.1X.I3. 
12H0F,  13  > 


IF<MRTL<(0>  847,844 , 844 


847  N“N+1 
LL=LL4l 
LR-LR+1 

RRT=PLB<K>/PLBS<J) 

R=R+RRT4.<aR<L,L)+CRCLR>l/2.0-Rl 
Z=Z+RRT4*<<CZ(LL>+CZaR)V2  .O-Z) 

HOUT=-MRTU<K) 

PUNCH  848.  R, Z, TS<  J  >.  J,  ilOUT, TH, RECORDG5).  REC0RD<36> , N, NS 

848  FORKRT  OFIO  .9.8HININDEGR,  9X,  1H/ ,  I3.9HMRT,  12, F7 .2, 2HS  ,2A6,1X,I9, 
12H0”.  13  > 


848  CONTINUE 

- TEMPERATURE  PRINT  OUT 


fWCflST 


PR8E  NO  64 


RRCRST 


PAGE  NO  SB 


BAKWL 


PAGE 


_ A _ 

SUBROUTINE  BAKWL  <P  1 

C  * 

(;*<■*♦+<’♦♦*♦*♦♦  *-**++*+*♦"***«♦+*****  o***<*<t-.Mi*-<>**<i*«H»-Mi*<tA******4**4  ♦**♦*♦♦ 

c  * 

C  SUBROUTINE  BAKWL  • 

C  * 

C***********************************-************************************ 

c  * 

C  SEE  THE  FULL  LISTING  OF  THIS  ROUTINE  FOR—  « 

C  +  DIMENSION  STATEMENTS  * 

C  +  COHMON  STATEMENTS  ♦ 

C  +  INCLUDE  STATEMENTS  • 

C  4  EQUIVALENCE  STATEMENTS  ♦ 

C  i  DATA  STATEMENTS  » 

C  * 

C  * 

9000  FORMAT(2I5. 9E12 .3 ) 

C - BACK-WALL  OPTION  L  OPERATIONS  FOR  NODE  I 

FRCT= VF K I > ♦SGEP*AO 

UC=HBK»HQ 

L=l 


-  .......  * 

?  .....  ...  .  .. 

IF  (FACT)  >100.400,100 

t 

C - SIMPLE  NO  RADIATION  CASE 

* 

400  CWL=<TRES-TA<I))/ <HC+ 1 ,0/UC) 

STAB=HO*«:H3W*0.5  4  SG4EPVTA<I)**3> 

_ 5 

1 

l 

RETURN 

c - GENERAL  CRSE 

_ 5 

r 

100  TWL=TA<I> 

1 

7 

101  UR=FACT«a  HL4TRES)*<TWLa*2+TR2  > 
US=>UR+UC 
RS=HC+ 1.0/US 

TWLN=Tfi<I>-<TA<I;  -TRES)/RS*HC 
CALL  SSWTCH<6.KSSW> 


i 

GO  TO<102,103),KS8W 

_ _ i _ 

102  CALL  LCQLM T<  U LCT , NPG . REC0R0C35 ) ) 

WRITE<KOUT„9CIOO>  I.L.FACT,  TWL.  TWLN,UC.y.R,US,RS,TRES,HC 


3-59 


cJ  /-TiT-MfT- »nii  Wrii 


; 


! 


END 

I 


3-60 


non  on 


uouuuouuuuuu 


Ofee  NO  1 


sap 


BEE  THE  FULL  LI9TIN9  OF  THIS  ROUTINE  FOR—  « 

+  DIMENSION  STATEMENTS  * 

+  COMMON  STATEMENTS  ♦ 

+  INCLUDE  STATEMENTS  A 

+  EQUIVALENCE  STATEMENTS 

*  DATA  STATEMENTS  ^ 


RETURN 


END 


3-62 


LCOUNT 


PAGE  NO  1 


_ L 

SUBRQUTISE  LCOUNT  <I,LCT. NP6, R> 


C  ♦ 

C  SEE  THE  FULL  LISTING  OF  THIS  ROUTINE  FOR—  M 


C  t  DIMENSION  STATEMENTS  * 
C  +  COMMON  STATEMENTS  ♦ 
C  ♦  INCLUDE  STATEMENTS  • 
C  i  EQUIVALENCE  STATEMENTS  * 
C  +  DATA  STATEMENTS  « 
C  « 

c  * 


BB1  F0RMAT(1HI,25X, 7 1HAERQTHERM  AX T -SYMMETRIC  TRANSIENT  HEATING  AND  MH 
ITERIAL  R  SLAT  ION  PROGRAM/USX, 1HPAQE,  I3/108X-2AB> 

552  FORMAT ( 1H1.25X, 7 1HAEROTHERM  AXT-SYMMETRIC  TRANSIENT  HEATING  AND  Mfl 
LTER1RL  ABLATION  PROGRAM' 1L1X8HPAGES  , 13/ 109X, 8HTHR0UGH  .I9/108X, 
22AS> 

3JK=I 


_ z 

IF  <IJK>  2,2.9 


LOOK 


PR6E  NO  2 


* 


1 


3-65 


LOOK 


PR6E  NO  <* 


3-67 


000000000000000 


■n.L»-x 


-  OGLE 

PR6E 

i 

H-0. 

G?OI=EM<I> 


80  TO  sr 


S3  PR=P<I3> 
DPDI=EM<1S> 


GO  TO  601 


S'*  18=13+1 


lF<13"NUMX>83/69  ,ST2 


$9  10=2 


60  TO  <61.651, IT 


S5  3S=J3-i 


66  I=IS 

8=«<P<m)-P<I>>/<X<I+l>-X<l)>>-EH<I)>/<X<l4l)-X<I>) 
F«<<  <EM<I+1)-EM< I >>/ <X<l4L>-X(I>>>-2 ,4G)/<X< I  + 1 >  — X< I >  > 
H=<F*<XA-X<l4l>>4G>*<Xfl-XO>> 

OPDI“<m  H+EM<  I  >4F*<XR-X<  I >  >4<XR-X<  I  >  >  > 


6T  PR-<H4EH«>)*<XR-X<I»4P<I> 


601  COHTIHUE 
PRH<J)=PR 


600  COHTIHUE 


60  COHTIHUE 


9  RETURN 


3-69 


-fill  t&aft r. 


nnnonnnnnnnn 


ORDERS 


pare 


SUBROUTINE  ORDERD  <NX.Xl.n> 

SUBROUTINE  ORDERD 


BEE  THE  FULL  LISTING  OF  THIS  ROUTINE  FOR— 

+  DIMENSION  STATEMENTS 
■>  COHMON  STATEMENTS 

4  INCLUDE  STATEMENTS 

+  EQUIVALENCE  STATEMENTS 
V  DATA  STATEMENTS 


NM*IABS<NX> 

L8G>=0 

LS<2)31 

L3<J)='2 

LI»3 

I1<1>=>1 


IF<L)  3, 3, 41 


ORDERS 


PR6E  NO  3 


i 


I 


i 


3-73 


SUBROUTINE  SEQUfUN,L,R,B.C,D> 


SUBROUTINE  9 

*+it+**+*,+in+et><KM&+«irQoov&ooo+++mt 

SEE  THE  FULL  LISTING  OF 
+  DIHENSIO 
+  COM 


IS=0 


DO  30  11=1, N 


I-II 


2i  j=lcd 
l<i>=i 


IF<J-I)  22,30,22 


22  IF<I3>  26,23,26 


23 


Sfl-R<I> 

8B=B<I> 

SC-C<I> 

80=0<I) 

IS=I 


28 

B<I>=8<J> 

C<I>=C<J> 

oa>=D<j> 

i=j 


SO  TO  21 


25  IF<IS-J>  26,28,26 


SEQUfl 


PfKE  NO  2 


END 


SLOPL 


1 


3L0PL 


PB6E  NO  4 


3-79 


SLOPQ 


pnee 


SLOPE  EVOLUfiVION  RUUTINE 

30  EM<22  =  <  PC2>  -  P<t)  >  /  <  X<2>  -  XCD  > 
EM<1>  =  EM<2) 

2<  D=D .0 
DC  =  EM<1> 


DO  98  I  =  1  .  NUMX 


=  1  +  1 
T  =  I  +  2 
=  IPO  -  NUMX 


IF  <  IT)  33  .  31  .  32 


SLOPQ 


PflSE  NO  2 


3-81 


IF<HfV-PRT>  105 . 105/  104 


no 


SURFS 


PAGE  NO  i 


I 


i  l 

.  3URFB 

! 

1 

PR8E  NO  5  r 

l 

I 

1 

i  i  • 

,  f 

:  i  \ 

4  *  , 

i 

H 

i  i 

i 

298  KQ0P=3 
HE=0 . 


BO  TO  2990 


OPTION  2  PREPARATIONS 


299  TS<I>=HE 
ST=HE 

,  9A=ORA/ 12000 .  ,  . 

DSCI>=SA-OSTTa)-PLaS<I>+PL8aO+D9T<:i?+PLD<:K> 
OSDTEK I >=09  < I >/0TH 

HA=»VCOS<K.  I .  MM.  CR,  CZ.S2.  SR.  EHN.  PLB,  PLBS,  DST> 


IFCKA-.O  2991.2991.2992 


2991  HRIT£F<6.2393>  I.KQOP 

2993  FORMAT(// 10X, 28HBRD  SURFACE  SHAPE  AT  .COLUMN  .I2.58H.  RM  RETURNING 
1  TO  MAIN  PROGRAM  WITH  THE  =  TH.  OPTION  IS' . 12. 1H.// > 

HRITE<KOUT.2994>  <0 ,  EM3<J>,EHN<J>,  J=1,NN> 

2994  FORMAT <  10X.  15HI.EMS< I ), EMN< !)//<  10X,  I2.2E12.3))  1 

THF=TH  ! 


’  RETURN 


BO  TO  265 


OPTION  3  CALCULATIONS 


2990  TflBC=90000. 


1 


3-86 


SURFB 


PRSE  NO  7 


2072  CH»CH(' <E.'<P<PHI>-1  .J+PHI 


20TT  R=>u<I)/RC<K)*<l.+FnCT4K3<K-0)/<l.+FfCT><U<I>+Ra<K-l») 
B=-R*<Tfl<IO+FftCT*TB<k)/<  i  .+FRCT*RB<K-L>  >  > 

2078  CONTINUE 

cm=BPSva> 

IRB=IRBLS«:n 

ERFX=CH*HE-B 

IPR=KWEOO 

IlO<L2)=>1 

IHI  <  12  )=N|iG<  IPR) 

BPG=CH 

COLL  LOOK<12.BPG.TMGO.  IPRJ.  0. 0.0.0.  Y20>.  Y2  (2) .  1  > 
IM6=IR<12> 

VRH=VR 

ILOC  L4 )=NlO<  niG. IPR> 

IHI< 14  >=NM < VUG. IPR> 

Il.0<  16)-NL0''  IMG+ 1 ,  IPR) 

IHia5)=NHJ<IMG+l.IPR) 

n=iLo<it) 

I2=IL0<15> 


IF<IHI <  14  >-I l)  240.240.203 


203  IFGHI ( 16 >— 12 >  240.240,204 


204  TfWt  IMS.  IPR>4VRH*<TTS<  12.  IM6H.  IPR>-TTS<I1 ,  IMG,  IPR>> 


IF<T3< O-TRBC)  240.240.205 


- RBLRTINS  SURFRCE 


205  IF<IR9>  208,208.207 


4 


208  CMQL-TLnC<Il.  IMS.  IPR>-VRWKTI.MC<I1.  IMS,  I?R>-TLHC<  12.  IHG+1.  IPR>> 
CMO=EXP<OIDL>*CM 
lftS=l 


20r  Cm.  LOOK<14,CMOL.TU1C<1.IM0.IPR>.TTS<1,IM6.  IPR>. 
17CHEH<1, IMS, IPR>, 0.0, Y2<l>,Y2<3>,2> 

IRR=IR< 14 ) 

CHLL  LOOK<18. CMDL. TLKCCl, IMGH, 1PR>,TT9U. IHG+1. IPR>. 
ITCHEH<  1. IMG+l. IPR1.0.0 , Y2  <5  >. Y2<?>.2> 

IRB=IR(15) 


DO  208  J=1.4 


201  Y2<J>=Y2<J)+VRM«><Y2<J+4)-Y2<J  >  > 


9T=Y2<1> 

Cm  UOOXX19. ST.TT < l. MT> , £PT<  t , MT> . 0.0.0.EM1V.DMIV.  1> 
TSSQ=ST»ST 

rrd=sig«ehiv«tsso*tssq*vt 
ERR=CH*Y2  <2 >  ♦  EMIV»ORfl-RRD-fM‘ST+ERFX 
-CONVECTION  CORRECTION  TO  BE  ADDED 
0ERR=CH*Y2<O  +  <<QRFi-RR0/EMIV)*DmV-4./ST*RRD-R)«Y2<3) 
ERRC=ERR/OERR 
VITER<ITS)=CMDL 
EITER< ITS>=ERR 
CMDL=CMDL-ERRC 


IF<ILO<  14 1-IRR1  210.2U.2U 


210  IF<ILG\ 15)-IRB>  2l2.2U.2tl 


212  C;irtI=RMRXl<TLMC<IRR.2MG.  IPRUTLMCC  IRFt-1 .  IMG.  IPR>. 
LILMC< IRB.  IHGU,  IPR>+TLMC<  IRB~  L ,  IMS+L,  IPR>>/2  . 
CM0L*,flMBXl<CMD8-,CMMT  > 


211  IF<2HI <14 l-IRR-l)  220,220,213 


213  IF<IHIU5)-IR8-1>  220,220.214 


214  CMHR=>RMINl<TLMC<IRft+l .  IMG,  JPR)+TLMC<IRB+2,  IMG,  IPR), 
tTLMC<IRB+l.  IMG+l,  IPR)+TLMC<IRB+2,  IM6H.  IPR>>/2. 


3-89 


9URFB 


BASE  NO  9 


221  WRrrE<6.225><VITER<J>.ElTER<J>.  J=l,51> 

225  FORMAT < 10X, 3fH3URFfiCE  ENERGY  BALANCE  ITERATION  9TOP//12X,26HVARIAB 
ILE  AND  ERROR  HISTORY// CI5X.  10E10 .3 >) 


2264  WRTTE<6.226)  TH. DTH. VRM.ERFX. HE. ST.  TABC. EMIV. DMIV. 

IRAD.QRR,  B.  B.  CH,  CM,  CMH, Y2  <L) . 12  C2 ) , 

2Y2C3).Y2C4>.ST.TSCI).  IBB.  I.K.  IL.  12.  ILOC14), 

3ILQC15  > . IHI <  14 ), IHIC15), IRA. IRB. ITS. ITL, IMG, IPR 
228  FORKATC//  10X.  105HTH.  DTH.  VRM.  ERFX.  HE.  ST.  TABC.  EMIV.DMIV.RRD.  QRA.  A.B, 
ICM.  CM. CMH.  12<1).Y2C2).Y2<3).Y2C4),ST.TSCI),IAB.  I.K.  II.  I2/53H  ILOC1 
24).  ILOCL5).  IHIC14).  IHIC15).  IRA.  IRB.  ITS.  IV..  IMG.  IPR// L0X9E12 .3/  10X. 
39E12 .3  /  10X.4E12 .3.  1514/) 

WRITEC6 , 2282  >  VF. CHZ, BRP. PHI, FACT.UC I ). ACCK) , VRP.EMNCI > . PLBSCI ), 
1PLBCK).CAP<K>.V0LCK>.TBCK) 

2282  FORMAT </ /  LOX.  76HVF.CHZ.  BRP, PHI ,  FACT,  UC I ) ,  ACCK), VRP. EMNC  I) .  PLBSC I  > . 
1PL8CK) .  CRPCK) .  VOLCK).  TBCK)//  10X.  9E12  .3/  10X.  5E12  .3 ) 

L=K-MM 

IH=K+MM 

HRITECg .  2263  )  MRTlCL). MRTLCK)  . MATLf IH  >.  MATLCK-1) .  RACK).  RBCK) . RAC 
ID  .  R3<K“1),DST<I),0STTCI>.  AACK). ABC K), BOCK), ADCO.AAC  IH  >, BLACK), 
2PL0CK) .  PLCf  K>. PLCCD . PLBCK- L > ,  PLAC  IH  > 

2283  FORMATC/  ifix.  lOlHMATLCD , MATlCK) . MATi_CK+MM),MA'LCK-I),RBCK> , RBCK) , 
lRACD.RBCK  D.OSTCn.DSTTCn.RACK).  ABCK).  AOCK).AD(l)/10X.55HAACK+M 
2M) ,  PLACK) .  BLOCK) .  PLCCK) ,  PLCCt. ) .  PLBCK-L) .  PLACK*MM)//10X, 4 I5.7E12.3/ 
330X.VEI2  .3/30X.3F.12  .3//) 


IFCIAB)  2288,2266.2261 


2268  RETURN 


2267  CONTINUE 
L=D 

IRC19)=l 
IL=JLQ<14> 
IH=IHI C 14  > 


DO  227  J=IL, IH 


L=LU 

CALL  LOOKC15 . TLMCCJ , IMG, IPR>, TLMCC l . I MG* 1 , IPR), TTSC1 , IMB+l, IPR), 
ITCHErta.  IMG+1.  rPR),0,0,Y2CI).Y2C3),2) 

Y2C1)=TTSCJ, IMG, IPR)+VRM*CY2C1)-TTSCJ, IMG, IPR)) 

Y2  C2 )=TCHEM< J, IMG. IPR)+VRMfCY2C2)-TCHEMCJ, IMG. IPR>) 

ST=Y2< 1) 

TSSa=ST»ST 


SURFS 


i 


PrtSE  NO'  11 


a 


i 


i 

i 


DO  230  J=fL. IH 


_ sL: _ 

L=L+1 

CRLL  LOQK<10  .  TLHCCJ .  IMG*  1.  IPR)  .  TLHCO .  IMG.  IPR>. 

ITTS< 1.  IMG.  IPR) . TCHEM< l ,  IMG.  IPR). 0.0  .  Y2<  l>.  Y2  (3). 2  > 

Y2  <1)-Y2<  l>»  <TT"9<  J.  IMGHiIPR)-r2<l))»VRM 
Y2<2)=Y2<2)*<TCHEM<J. IMGtl.  IPR)-Y2<2)>*VRM 
ST=Y2< l > 

TSSQ=ST*ST 

RRD=S!G»EMIV»T9SQ»rSSQ*VF 

CHLL  LOOMIS. ST. TT<UMT).EPTa.MT).O.O.O.EMIV.DMIV.  1) 
ERR=CH*Y2 <2 ) tEMI V»ORR-RflD-ft*STtERFX  i 

EirER<L)=ERR 


230  VITER<0=TLMC<J.  IMG.  IPR) 


_ 2 _ 

IMG=IHGU 
MRITE<9.231>  IMG 

231  F0RM9T</12X.  EHIMG  -  .  12// >  . 

WRITE<S . 229 >  CVITERCJ > , E ITERCJ ). J=l. L) 
THF-TH  I 


4 

r 

RETURH 

1 

:  .  i 

! 

C - HOH-flaURTING  SURFACE 

C 

' 

l 

0 - : - 

t 

240  I REM) 

CMDO. 

1  t  ' 

9URF8 


PR8E 


lF<KBQP-9>  2400.249 1.249 1 


_ St 

2400  ILQ<18>=1 

:hi<ib>=>khi<img,ipr> 

iLoar>=i 

IHI< If )=KHI < IMG+l . IPR) 

ST=TS< I ) 


(3 - 

249  CALL  L0QK<1<».  ST.TTSO.  IMG.  IPR)  ,TCHEH< l.  IMS.  IPR). 0. 0.0. 
1Y2 (1 ). Y2<2> , L) 

CALL  l.OOK<  17 ,  ST.  TTSC1 .  IHG+1 .  IPR) . TCHEMC 1 . IMG+l.  IPR). 
10.0/0'.Y2<3),  Y2<4>. 1> 


_ SL 

DO  241  J=l,2 


_ X. 

241  Y2<J  >=’Y2<J)+V,RM+<Y2  <J+2>-Y2  <J  >  > 


2491  CONTINUE 
TS9Q=9T«ST 

2401  CALL  LO0K<19,ST.T-<l.MT).EPT<l.MT).0,0,0.EUV.DI1IV’.  1) 
RRD=SIG»EMIV«TSSO»TSSQ»VF 
ERR=CH+Y2 < 1 ) fEMIV+QRR-RRD-A+ST+ERFX 
DERR--CH«Y2<2)+  <QRA-RAD/EMIV)+DMIV-4  ,/ST*RRD-R 
ERRC=ERR/OERR 
VITERCITS)=ST 
EITER<ITS)-ERR 
ST-ST  -LRRC 
IRR=IR< 16 ) 

IRB=IR<17> 


SURFB 


PflSE  NO  1) 


250  hrite<6,225xviter<j-..eiteri:j>,j=i.5i>  : 

HRITECG.251)  TH.OTH.  VRM.ERFX.HE.ST.TRBC.EIlIV.DlirV. 

1RRD.QRH,  R. 8.  CH.  CH.  CMH.  Y2U>.  Y2<2  >. 

2Y2<3}.Y2<4;>.T5<l>.DSDT<I).03DTB<l2,  ; 

3CMD,PLB<K>,PLBS<D,  I.K.  IPR.  IMG,  ! 

■4  ILO<  16  >.  IHI <  LG  >.  IuO<  17  >.  IHK17.,.  IRQ6>. 

5IR<17>.  IRR.  IRB,  ITS.  ITL.  HT 

251  FORMAL  LUX.  U-'SHTH.  OTH.  VRM.  ERFX.  HE.  ST.  TflBC.  EH  I V.  DrtI V.  RRD.  QRR,  R.  B. CH 
UCH.CMH,  Y2Cl>.  :l  <21.  72  C3  ) .  Y2<4  TS<i> .  OSDTC  I) .  DSDTBO . /10X,  95HCHD 
2  PLB(K) .  Fl3S<  I  ).  I.K.  IPR.  IMG,  IL0<  L6  > .  IHI  <16  > .  IUX17>.  IHIC17).  IRC16> 
i.  IRC  17  ) .  IRR.  IR3.  ITS.  ITL.  HT//  10X.  SE 12  .3/  LOX.  9EL2 . 3/  10X. 8E12  .3/  15 13/ 
1) 

L=0 

IL=ILQ( 16> 

IH=IHI ( IS  .>  I 


_ i. 

DO  252  J“IL, IH 


L=L  +  l 

CftLL  L0Q«17 .  TT9<J,  IMG,  IPR>.  TT9< l,  IMG+1 ,  IPR>,  TCHEM<  1 .  1M6+1,  IPR),0. 
10. 0.  Y2 <3> .  Y2 '"4 >.  l> 

Y2  <1 >=TCHEM< J.  IMG.  IPR>tVRH*<Y2 <3>-TCHEtK J  ,I(16.IPR>,> 

ST-TTS< J. IMG. IPR) 

CALL  l.OOK <  1 9  .  ST,  TT< L, MT) ,  EPT <l,MT>,0,O,Q.EMIV,DMJV,  1> 

TSSQ=ST*ST 

RRD=SIG*tM:V*TSSQ«TSSQ*VF 
ERR=CH«-Y?  <  1 )  +Et1IV«QRR  -RRD-A*9T»£RFX 
EITER<L>=ERR 


± 


i  252  VITERCLXST 

_ s 

t 

WRITE<6,228>  IM6 

WRITEC6, 253)  <VITERCJ).EITER<JU.J=l,L> 

on! 


SURFB 


PR6E  MO  14 


- POST  ITERATION 


260  IF<KQ0P-2>  261.261,2660 


261  Y2<2)=Y2<1> 


262  QCHEM=Y2<2> 


IFCISENa»  263.264.263 


264  QCQNY=Q . 


SORFB 


PTOE  NO  15 


80  TO  26G 


253  CALL  0SLE<1,3T,QC0NV, ISEN<IPP>.TTSEN<1, IPR>.THSEN<1,IPR>, 
lTCPSENQ, IPR>> 


3-97 


SURFB 


L-J+MR+1 

CRR=CR<L>+RfiT*<CR<L+l>-CR<U ' 
CZR=C2<LHRfiT*<C2<L+n-C2<U> 
HR=CRR-CR<i.> 

HB=CZR-CZ<L> 

HC=Hfl*HR+HB*HB 

HD=SaRT<HC> 

HFr=PIB*HD#<CRR+CR<L>> 

“D<K>=HF 

HR=CRR-CRL 

HB=CZR-CZL 

HC=Hfi«HR+HB*HB 

HD=SQRT<HC? 

flC<K>=PIB*HD«<CRR+CRL> 

HB=CR<J>«CR<J> 

HB=CR<J )*CRL 
HC=CRCJ)*CR<L) 

HD=CRL+CRL 

HE=CRL*CRR 

HF=CR<L)*CR<L) 

HG=CR<D*CRR 

HH=CRR*CRR 

HS=ZRO 

HS=HS+CZ<J>*<HC-HB+HF-HQ) 

HS=HS+C2<L)*<HG-HC+HH-Hfl) 

HS=HS+CZL-*<HB-H£+Hfi-HH) 

HS=HS+CZR*<HE-HG+HD-HF) 

VOL  00=6 .060 l?  LE-04*flBS<HS> 
SR<I)=<CRL+CRR)/2 . 
SZ<I)=<CZL+CZR)/2. 


IF<KCENT)  ?,  2,1101 


1101  HH=<SR<I)+CCR<J)+CR<L))/2 , 
HB=<9Za^<CZ<J)+CZ<L))/2  . 
HD=<CRL  CRCJ))/2.-HH 
HE=<CZl-CZ<J))/2.-HB 
HC=H3*HD+HE*HL 
PLfl<K>=FT*SQRT<HC) 
HD=<CRR-CR<L>>/2.-HB 
HE-<CZR-CZCO)/2.-HB 
HC=HD»HD+HE*HE 
PLC<K>=FT>SQRT<HC> 


QNTS=QNTS+QSUM*DTH 


IP  RETURN 


nnnnnnonnnnnnnn 


_ S'. _ 

FUNCTION  VCOS.CK,  I ,  MM. CR, CZ. 3Z -  SR,  EMN. PLB.  PL9S,  DST> 

C  « 

C*-»+***+**+*+**-*****-**>**+*-*-**+  »M>i  ,‘4*-*>;+*i*-****#-»****-**iV**-*44**-»si>*'>***-*i 

,  ,  ♦ 

SUBROUTINE  VCOS  < 

,  <• 

♦ 

SEE  THE  FULL  LISTING  OF  THIS  ROUTINE  FOR—  ♦ 

F  DIMENSION  STATEMENTS  ♦ 

'  s  +  COMMON  STATEMENTS  •  ♦ 

+  INCLUDE  STATEMENTS  « 

+  EQUIVALENCE  STATEMENTS.  * 

1  ■*  DATA  STATEMENTS  '  * 


i  .  •  * 

•  ♦♦♦♦♦♦♦•-••♦♦•-(i(i4**-»«***>*«-»«  +  **+****-***«*»»*4«-6«******»«-*«»«*-»«**»-««** 

.  * 

- SPECIAL  ANDERSON/ SCHAEFER/ ARC  RESTRICTED  VERSION  , 

!  DIMENSION  CR''1>,CZ<D,3Z<0.3R<1>.EMN<1),PLB<1)  ' 

DIMENSION  PLBS<1 >, DSTC 1)  i  . 

KOUT=6  i 

:J=K+I-1  I 

L=J+MMH 

R1=<CR<J>+CR<L)V2.  .  i 

Zl=<CZ<JJ+CZ<L))/2. 

DZ=SZ<I>-Z1H.E-15 

DIST=PLBS<I)-DST<I)  ' 

EMNR=ABS<EMN<I>>  •  ,  > 

VCOS=DZ/<DIST  ♦SQRT<1.4EMNA*-»2>>*(EMN<I>/EMNA+(SR<I>-Rl>/DZ<'EMNA> 

t/12.0  ,  i 

VCOS=ABS<VCOSJ 


RETURN 


SECTION  4 


I«  *  :  » 

,  '  LISTINGS  OF  FORTRAN  IV  SOURCE  DECKS 

1  i  ‘  , 

Listings  of  Fortran  IV  source  code  decks  are  presented  in  this  section. 
,  The  main  program,  ARCAST,  is  listed  first.  Following  ARCAST  are  the  twelve 
subroutines  present  in  ASTHMA  listed  in  alphabetical  order. 

t 


I 


r>  r 


AhcAST/RPL 


include  DIMS. list 


•AHCAOOOl 

ARCA0002 

AHCA0003 

ARCAOOOA 

ARCA0005 

ARCA0006 


—DIMENSIONED  AS  SURFACE  NODES  (NUMBER  OF  COLUMNS)  ARCAOOOS 

COMMON  (\SUR(40>  .TS<40)  ,OSUl  (40> .0SDTBt40l «OS(40> .U5T  (4l)>  »U(40l  ARCAOOOS 
COMMON  PL*I5(40) iOSI T(40) .OCOnOI (AO) . DCNV (AO) .UCNVT(AO) .OCHMHO) .  ARCA0007 
10CMMT  (4.0)  .UKAU(AO)  .ORAbT  (AO)  .OKAO(AO)  »(MAOT  (AO)  *OSUTBN(AO)  .OSn (AO)ARCAOOOB 
COMMON  CHOUT(<.0>  .MtUO(AO)  .CMT(AO)  .M»L(40>  .G(40>  .UZ(AO)  .PR(40>  ARCAOOOV 

COMMON  1 1 (AO) .SZ (401 *SN(AO) .EMN(AO) * ITSR(AO)  AHCAOOIO 

COMMON  IArLS(AO)  .KORUP(AO)  arcaoou 

—DIMENSIONED  AS  PROPERTY  tables.  ENTRIES  X  MATERIALS  ARCAOOIS 

COMMON  T I ( IS. 6) .RT ( IS. 6) .CRT ( 15.6) .CNT(IS.t) »CNT2( 15.6) .  ARCA0013 

1lPK1S.6).ITmX(6)  ARCA001A 

DIMENSION  (HZ ( IS. 6)  ARCA001S 

— DIMENSIONED  AS  TIHl  lCS.  ENTRIES  X  TABLE  NO  ARCA0016 

COMMON  THT(JS.IO) .CHI (35. 10) .RET ( 35. 10) . TOR (35. 10) .TPI (35.10) .  ARCAOO)? 
1 THRP (35. 10*  ARCAOO IB 

DIMENSION  Ndx'lO)  ARCA0019 

DATA  i\BW/li)*/f/  ARCA0020 

DIMENSION  1UPT (35)  ARCA0021 

—MISCELLANEOUS  UUANTIIIES  AMCA00P2 

V.OMMQN  RECORD (  Jo)  .  TMPR (S)  .MPR  (5)  .NNPR (b)  ARCA0023 

COMMON  VlTtR(Sl) .EIItR(Sl) .lAd.RO  ARCAOOEA 

COMMON  VKIN.CMH.CM.CH  ARCAoOBS 

COMMON  TH, Dirt. PRT. THI, lHf .ULTH. ETA. 1TS.0THS  ARCA0026 

COMMON  FV.FT .PId.ZHO.KU0P.MM.NN.NMT .NHT .UNTS.QSUM.S10  ARCA0027 

COMMON  KMEsL.KSlOP.KCEnT  ARCA002B 

— SURFACE  ThlRMOChEMIsIRY  DIMENSIONED  (25.B.5)  ARCA002V 

COMMON/ENPuf/TPRlS) .NMU(S) .TMOld.5) .NLO(B.S) .NHI (B.S) •  ARCAoOJO 

Itsrtl  (B.S)  . T  T SEN  (25*5)  .ThSLN(2S.S>  iTCPSEN(25.S)  •  Ai<CA0031 

2TLMC(2S,d,A) .lSEN(S) .TISI2S.B.S) .TCHEM(25.8.S) .NPR  ARCA0032 

DIMENSION  I Z SEN (25.5) . 1CZSEN (25.5) . TSORF (25) .TSEN (25) , I Z 125)  ARCA003J 

ulMtNSION  KHTL(5) .DELHI (S)  ARCA003A 

^OMMOn/LK/KDUT . IEX.uLN.VR. 1 H I (AO) >1LO(AO) . IR(aO)  uRCA0035 

LDMMOil/BACK/LHW.HBh.SOf.P.SGAEP.TRA.EPSW.MCONV.THLS.HC.AO.OWL.TKL.  ARCA0036 


ISTAd.W  AHCA0037 

DIMENSION  IPN(B)  .T2(**l  *02(**)  ARCAOOJB 

DIMENSION  PutUM)  .TPTCU(R)  ARCA0039 

u  I  ME  NS  I  ON  IFORMUl  )  .  jrOHM(  1  1  I  aRCAOOAO 

OAIA  1FOR-/06H(16.15.F12.?.1A.1S.T 12.2 . IB . I S.F 12. 2 . I B. 1 S.F 12*2. Ib.aHCAoo-1 
“Is.F  12.2*  /  AHCA00-.2 

DATA  ISKlJ/OM.Ab.'j*/  WRCA00A3 

DATA  HLANk/Sm  /  ARCA0044 

LOOIVmlENCa  (Mu.raui )  .  (MM. 12(2)).  IMF  .120) )  ARCAoOmS 

JOC  F *|RMAT  (2I3.IOE6.A./I1)  AWCA00A6 

301  FORMAT (4L7.5)  -<CA00**7 

102  . ORMA t(A1i«I2*6ES.a)  APCAOOAB 

303  FORMAT  (I2.F0.2.sF  10.5)  ARCAoOaN 

3030  FORMAT (lA.6t6. A)  ARCAOOSO 

30A  r  URMAI  (  1 H)  *2bX.  7 lHAERUTFItRM  AXl-STMMEIRIC  TRANSItNT  HtAJ  INU  AND  MAARCA00S1 

DENIAL  Adi  A I  I  OF)  .^NOONAN/ 1  l  JX  •  AhRAUE  *  I  34/  )  ARCA00S2 

305  I  ORMAT ( (2AO)  ARCA005J 

Yes  format i//i i«  input  oaia//2)h  dimensions  of  input  oata//ham  iiarcaoosa 
ImE  Stc  TEMPERATURE  OEO  R  ARCAO0SS 

2  0LN5IIY  LO  RtR  CUBIC  FT/J12M  SPECIFIC  MEAT  AHCAuOSb 

j  BTU  REP  LH  OEu  K  cONuUCTlvlTr  Bio  Per  FI  SEC  UEO  ll  EmISa((CA00S7 

ASIVITT  UlMENSlUNLESS/IOsH  MEAT  COEFFICIENT  LB  >-Ek  SO  F'TARCAOOSb 

5  Stc  ENTHALPr  B1U  PtR  LB  NOUAL  COORDINATES  ARCAOOSO 

61.ICMES/AAM  RESISTANCES  SQ  FT  SEC  OEG  R  PER  BT II///20"  PROARCAOObO 

TaLtM  CONSTANISZ/BsM  rha*  UMAX  INI  I  TIMt  FlNL  TIME  PRNI  AHCAOOAl 

oIIME  TIMt  INC*  TIMt  Cr.ST  /)  amCAOObP 

307  .ORMAT  (//POH  NODAL  COORD (')A R5//5X .  HU  .sX  .  1MJ.SX .6MHC ( INI  .7x  .bnZARCAOObJ 
lC(lN)  .  7X.hFlNfi(  IN)  ,  7X.6F<Zn(  IN)/)  ADLA0064 

JOB  F  ORMaT  4 1  3h  NOiIAL  UATA//V7M  MATl  ImIA  SIOE  tNlB  HTTb  HEAT  CNSARCAOObS 
11  lull  TtMP  CONI  RlS  A  con!  RES  B  VFI  VF'3/>  ARCA 0066 

30r  F  ORMaT (29i<  MATERIAL  PROPERIltS  IablES/)  ARCA00m7 

310  FORMAT (/ISH  MATERIAL  Nu. I 3//73M  I EMP  uENslir  SPEL  ARCA006B 

InEAI  CONDUCT  LMISSIV  C0NDUCI2/F  ARCA0069 

311  FORMAT  (//25h  HEAIInO  TABLES.  OPIIOM2/)  ARCA0070 

312  FORMAT (17h  HEAI  TABLt  NO.IJ//SOM  TIME  MEAT  COEFF  RLCUV ARCAOO 71 

I  tNTH  Rad  FACTOR/)  ARCA0072 

313  fOWMAI  (//22rt  (FALL  tNIHALRY  TABLL//3AM  TEMP  ENIH  1  ARCA007J 

1  ENTm  2/)  ARCA007A 

31A  f0RmaT(1X,2I5.SX.6(EI1.a.1x)//)  ARCA007S 

315  FORMAT (IX. 0tl2. A)  ARCAOO 76 

Tib  F0RMA!(lA.5lS.2X.b(lF>ltll.3.|X>>  ARCA0077 

317  FORMA! (17H  HEAT  Table  N0.13//J7H  TIME  TEMP  MELOVARCA007B 

1  FIIT.l/)  WRCA0079 

JIB  FURRRi T(3X.1J*3X*I3*1x.AE13.S)  ARCA0030 

f 10  FORMAT (///I2H  UUIPU1  UAIA//2HM  DIMENSIONS  OF  OUTPUT  OATA//lIbM  ANCA00B1 
I  TIME  Sht  OTOTfSUR.INI  bTO  AHCA0042 


VF"  3/)  ARCA0066 

ARCA00m7 

UENSIIY  SPEL  ARCA006B 
ARCA0060 
ARCA0070 

MEAT  COEFF  RLCUV ARCAO071 
ARCA0072 


L//3AM  TEMP  ENIH  1  ARCA0073 

ARCAOO  74 
AHCA007S 
ARCAOO  76 
ARCA0077 

H  TIME  TEMP  RECUVARCA007B 

«RCA0079 
ARCAOO  30 

DIMENSIONS  OF  OUTPUT  DATA// 1  IBM  AkCAOOBl 
OTOTfSUR.INI  BID  AHCA0042 


2  CONVECTIVE  MEAT  COEFF  LB  PER  SO  FT  stC/llSH  TEMPERAT«RCA00b3 

JURE  Utu  R  ONtI  AND  GCONV  BTU  PER  SO  FI  SEC  ARCAOOSa 

a  UThT  BlU  PtR  SU  FI//)  ARCAoO-15 

)/'.  FORMAT  (2D  1  ARCAOObb 

121  FORMAT! IP, lOt 7.5)  ARCAOO 67 

)22  1  ORMAT (//Jgu  H  vs  IaMPERAIurE.  TAbLE  NO.  l2/3X4MTEMP9XIHMBxAHTEKPARCA00Sb 
19X1FIHBX-.MTLMPNX  |m(BA4M  IEMP9X  IMmbXkM  TEMP9X  |HH>  ARCA  0039 

}2J  •  JRMST (//?JM  M  VS  TIME.  (ABLE  NO.  I2/JX..MT  |ME9MHHdX4,HTI  JE9X|HHOXaRCA0090 


I** til  lMt9MHH0JKttlI  A  1HH3X4MT  IME9X  lHH) 

32<.  format  (iof.ii.3i 

332  FORMAI 1/  11 IK  NODE  T£HP  NODE 

1  NODE  TEMP  NODE  TEMP  NODE 

3J3  F0XHaT110X*5(15«14.£12.4)) 

334  fORMAI (lbx* 

1  72m  TIME  QT0T.5UR  OToTUNT  CN 

2  ITEh  N0l)L  0-T  ImE.2X.11H  ACT  D-TlHt/) 

335  FORMAI  (1oX.4(E11.4.1a>  .213.I5.2E13.S/1 
3)7  F0RMAT(//ilx.2I4,SEl2.4) 


AXCAU091 

AWCA0092 

DE  TEMP  AHCA0093 

TEMP/)  ARCA0044 

AwCAGuwS 
APCA0096 

CNSV  EnEr  CRNQOEARCAOQ97 
AHCA009b 
AMCA0099 
AACA0100 


‘.34  FORMAI  <1H  //23X40H - TIME  DEPENDENT  BOUNDARY  CONDITIONS - /IM  )  1.HCA0101 

A 35  FORMAT  (9X.4MTlME,BA,<,hPHOB.3A.aHRECOVEHY.3X»9!(RADlAT10N.4X,4HHtATARCAoi02 
l6X.8HPR£SSURt,3A.7M6LO*lNG/9X.SH(StC)  .7X.4H0PTN. >X,8HtNTHALPY.3X,  ARCA010J 
29HF1EAT  RATL.4A.SHCOEfF.14A.9HR£DuCTtON/2BX,aH(bTU/LB).2X,llH(bTU/SARCA0104 
3u  f T-ilXilOHILB/SQ  FT-.3XtSK(ATM) ,3a,9HPARAM£TEr  /40X. 7HSECONO) »  ARCAOlOb 
44X.7MSEC0N0) )  ARCAOlOb 

5150  FORMAT  (9Xi*»HTlMFt«X,AMPK0B.3Xit)HRECOVERY.3X»9MRADlATI0N.4X.4HMEATARCA0l07 
15X»0HPReS4uRE.3X,7M8L0wlNG/9X.5M(SEC) .7X.4H0PTN.3X.8HENTHALPY.3X.  ARCAOlOb 
29HHEAT  RATE  .4X.SmC0EFF .  14X.9HRE0uCT  I0N/28X.8H  (Blu/LH)  »2X.  1 1H  (BTu/SARCAoio4 
3u  FT-.1X.10H1BTU/SO  FT .3X.SHIATH) . JX.9HPARAHETER  /40X.7HSECOND) «  ARCAOIIO 
44X.9H-SEC-U0X) »  ARCA01 l l 

5Jb  FORMAT  (bX.f 8.2.8X,I2,aX.2(F8.2.3X) ,f 8.4. JX.F8.S. JA.F8.3)  AXCA0112 

537  FORMAT  UH  /9X,b9HCH/CH0  =  PHI/ (EXP  (PhI  ) -1. )  WHERE  PHI  =  2.«BRP»M  ARCA0H3 


IUOT/CmO.  rRP  IN  TAbLt.1 

538  FORMAT  (//?/AJ0H - SURFACE  EOulUBRIUM  DATA - ) 


ARCA01 14 
ARCA0115 


552  FORMAT  (9x»4fiT1ME«8Xi4HPR0B.3X*7HSUHFACF  .hX,7HSuRF  ACE/9x.5h(5EC)  .  ARCA0115 


l /  X *4M0PTN.dX .4HTEMP .5X .9HRECE55I0N/28X * /H (OEG  R)  .5X.6H(MIlS) )  aRCA0H7 

55b  FORMAT  (9X. amTIME. 8X. 4HPR0B. SX. 4HV1Ew.5X, 9HRA0IAT  I0N/9X,5ti(bLC) .  ARCAOIlb 
l/X.4M0PTN,4X.bMf ACTOR. aX«9hhEAI  RATE/3bx.11H(8Tu/SO  FI-/40X,  ARCA0119 

27MSEC0N0))  APCA0120 

-)7bO  r  ORMAT  (Eo.t.bX.EH.5.Eb.4.F4.2.E7.5.bX.2Eb.5iA6.I1.12Xi  12)  AXCA0121 

2/81  fORMaI  (E6«4.EB.S.6A.L6«4.F9.2.t/ »5.6x.2Ed«5*A6.11.12X.12)  ARFA0122 

5/82  FOHMAI 1tb.4.8X.Lo.4,tb.4.F4.2.E7.S.bX.2Lb.5.A6» 11. 12X. 12)  AKCA0123 

57c<4  F OKMaT  (//bx .  14HK INET  ICS  PR.M  =E10.  J«8X«  1 0HPRE5SUXE  =.F9.4,ah  ATM//  ARCAQ124 
l/X.2(4HTtMP.BX.2bFiM-U0T-  CHEM.PROU  SURFACE. 3XI/6X.2(36H(DEO  R)  ARCA0125 
2LF.AX/CM  luTU/LH)  SPECIES. 2X)I  ARCA0126 

8/90  FORMAT  (oX»2bHN0  RADIUS  CORRECUON  ON  CM)  ARCA012' 

5791  FORMAT (JF8*j,F9.4.Fs.J*2f 9.3.12. 2A.A6)  ARCA0128 

5/92  FORMAT (//5X.3MP  S.F9.4.4H  ATM//bX. 3<25HTEMPERATURE  EOOt  ENIh  )/ARcA0129 
lox.3(25ri  loEO  R)  Aj  I-«ALL  ))  ARCA0130 

5741  FORMAT  (//bA.37M8AO  JUXFACE  EOOlLlBXlUM  TABLE  OF  T YPE .12)  AHCA0131 

5794  FOHMAI  ( / /bX .  79FiE0uAl  MASS  AnO  HEAT  TRANSFER  COtFF  ICIENTS  ANu  EOUAARCA0132 
1l  Diffusion  COEFFICIENTS)  ARCA0133 

8/45  F0HMAT(5X.FO.2*2X.f 7.4.2X.F8.2.4X.A6. 1X.F8.2.2X.F /.4.2X.F8.2.4X.A6ARCA0134 
I  I  ARLAU135 

5/4b  f0RMAI(2F 10.0. 3(9X, 11) .5(11. F5.0))  ARCAU1J6 

5747  t0RMATi//6X.45MRAT10  OF  MASS  TO  MCAT  TRANSFER  COEFFICIENTS  =  »F6. J/ARCA0137 

I  bx.poMUNrjuAL  diffusion  Exponent  =.Fb.3i  axcaoioo 

8748  format  (bX.F9.2,4X.F 4.2,3X.F9.2,4X,F9.ARCA0139 

22.3X.F9.2.4X.F9.2)  ARCA0140 

8749  .ORMAT  (b.  .SbHriEAT  TRANSFER  COEFFICIENT  MULTIPLIED  8Y  (R  INI  I  IAL/RARCA0U1 

1  CURhEnT)»*1.3)  4RCA0142 

481  FORMAT (/SAXBOHbACK  wall  C0NVECI 10N1QX9FHJACK  WALL 10X4HRESERVOIR/  ARCA0143 
lu2X2'jnCOF.F  uIU/FTSu»8‘C-0E0  RaxiOMtMlSSIVITY8XllMlEMPERATuRE/  ARCA0U4 
2j7xF10.4*ibXFb.3*luxF10.2)  ARCA0145 

819  r  0RRAN2SHIU0T  oF  rAn&l  OF  M  TA0LS5/SX7H  TEmP=  E9.4.  lOXbM I  ImE=  l9.ARCA01a6 
1 9 )  ARCA0U7 

t<?0  rORMAI (44M  IS  tAHOtR  ImAN  IME  LASI  ENIRY  IN  The  wall  ENIh.  TABLt)  ARCA0148 
821  f  ORMA I  (  5sm  IS  SMALLLR  TfiA’f  TmE  FIRST  ENTRY  IN  THE  WALL  ENIH.  TABLt)  ARCA0U9 
■<22  FORMAT  .2480 TmF.  TEMPlRaIORE  OF  NO0E2I4)  ARCA0150 

b23  FORMA!  (4941-  LARGER  ImAN  THE  (.AST  LNlfir  IN  MAIL.  PROP.  TAB.  13)  ARCA0151 
a 24  FORMAI (S1H15  SMALLtR  Than  The  FIRST  tNIHY  IN  MAIL.  PROP.  TAB.I3)  ARCA0152 

- - utNtRAL  constants  arcaois) 

tv=. 4  ARCA01S4 

F T=. 083333333  AwCAulSS 

hank  7  4S9.088  ARCAolSb 

2R0= o«  0  ARCA0157 

RIB=, 021810614  «RCA01S» 

INCrisb  ARCA0159 

l.NPUFsS  ARCAoloO 

hOUT=6  ARCA01A1 

•tIO=. 48IE-12  ARCA0162 

MP6*l  ARCAy  tb3 

0 - MAIN  INPUT  BLOCK  INLLUUlNO  OUTPUT  LISTING  OF  INPUT  ARCA.)lb4 

225  WRIT*  (6.304)  NPG  ARCAOlOb 

hEAU  (5.306)  (RECORD (I) .1=1.36)  ARCA0166 

wRl IE  (6.305)  (rECjrO(I) .1=1.36)  ARCA0167 

•  RITE  (6.306)  ARCA0168 

REAO  (5.300)  MM.NN.ThI.THF .ThP.OlTH.E I A.DH2.BRP.HC0NV.tP5w » IRES.  ARCA0169 
IxASt .KSTRP.KRESC.K5L0P.KCENT .KLUGvRORTO  ARCA0170 

t\SLOP=*<SLOP.  I  ARCA0171 

kRE5C=KREsl*1  ARCA0172 

sGEP=5I0*ER5W  AHCA0173 

8G4EP=<i.i)»SoEP  ARCA0174 

IR2=T«ES»»2  ARCA0175 

TR4= 1R2*«2  AHCA0176 

IF(ttA)  2=53. 2253. 2254  ARCA0177 

2253  c  I  A=i*.  75  ARCA01 78 

2254  CONTINUE  ARCA0179 

WRITE (6. 3|4)  MM.NH.ThI.ThF.ThP.OLTM.ETA  AkCAqIBO 


ARCA015 1 
ARC60154 
AwCAu 155 
ARCAy 156 
ARCA0157 
AHCAOlSb 
ARCA0159 
ARCAyloO 
ARCA01A1 
AHCA0162 
ARCAyl63 
ARCA.J164 
ARCAOlbS 
ARCA0166 
ARCA0167 
ARCAOlbS 
ARCAy 169 
ARCA0170 
ARCA0171 
ARCA0172 
ARCA0173 
ARCA0174 
ARCA017S 
AHCA0176 
ARCA0177 
ARCAO 1 78 
ARCA0179 
ARCAolttO 


if-3 


WRITE  (KOUT  .581)  HCONV  ,EPSW ,TRES  AfiCAolbl 

1F(ThP>  2255, 2255. 2267  ARCA0182 

2267  !PTCG(ll  =  l.tOO  ARCA0185 

oO  TO  2266  ARCA0104 

2256  READ( INPUT. 2252)  (PRT I ( I ) .TPTCGII ) *1=1 *8)  ARCAQ185 

TPTCG(8)=T«)'  ARCA-186 

00  2257  1=1.7  ARCA0I87 

IF (TPTCGI I ) )  2258.2258.2257  ARCA018B 

2258  TPTCG(l)=THF  AHCA0189 

2?57  CONTINUE  AHCAOIRO 

CALL  LCOUNl  (S.LcT.NPG,R£C0R0(3S>)  ARCA01R1 

wRlTf  (K0UT.22S9)  ARCA0192 

2259  E 0RMAIl//44A,21H0UTPUT  TIME  INTERVALS)  ARCA0193 

WRi IE (KOUT ,2260)  PkT I (1 ) . THI .TPTCG t I )  ARCA0194 

2P60  )ORMaT (/21A.1 7H0UTPUI  INTERVAL  “.F7.4.13M  SECONDS  FR0M.F9.4.  ARCA0I95 

114H  SECONDS  UNTIL. (9. 4. 8H  SECONDS)  ARCA0196 

IF<tPTCG(l)-THF>  2261,2263.2263  ARCA0197 

2261  DO  2262  1=2.8  ARCA019B 

IF(TPTCGd)-tHF)  226b. 2264. 2264  ARCA0199 

2264  CALL  LCOUNl ( 1 .LCT.NPG, RECORD! 35 ) )  ARCA0200 

WRITE (KOUT* 2266)  PRT 1 ( I) . TPTCGI 1-1 )  ARCA0201 

2265  FORMaT(21x.17HOUTPUT  INTERVAL  =  .  F7.4.13H  SECONDS  FROM.  ARCA0202 

1)9,4,256  StCONuS  UNTIL  FINAL  TINE//)  AHCA0203 

i.O  TO  2263  AHCA0204 

2266  CALL  LCOUNl  U.LCT.NPG, RECORD  (35))  ARCA0205 

2262  wH 1 TE (KOUT ,2260 )  P«T 1 ( I ) . TPTCGII-II .TPTCGI I )  ARCA0206 

2263  TMP=PNT 1(11  ARCA0207 

IF(ThP)  2?bb. 2268. 2256  ARCA0208 

2268  )Mf=THl  ARCA0209 

2266  CONTINUE  ARCA0210 

lF(KSTRP-2)  22S0. 2261,2251  ARCA0211 

2251  READ  (5.22221  (TPN(I) .1=1.8)  ARCA0212 

2262  ) ORmaT  (8F10.0)  ARCA0213 

2250  CONTINUE  ARCA0214 

N=NN. i  ARCA02I5 

M=MM»i  ARCA0216 

K=0  ARCA021 7 

UO  200  J=1 »N  AWCA0218 

1)0  200  1=  I  *M  AHCAU219 

KsK ♦ 1  ARCA0220 

READ  (5, Jo  I)  AA(K) ,AB(K) ,AC(K) ,AD(K>  ARCA0221 

CR  (K )  =AA  (k  )  MRCA0222 

200  C2(K:-A8(k>  AHCA0223 

CALL  LCOJNl  (-MM*NN-4.LlT.NPG,RLC0RD(35)  )  A.ICA0224 

WRITE  (6. (08)  MKCAU225 

K=0  ARCA0226 

uO  201  J= i ,NN  ARCA0227 

uO  201  1=1, MM  ARCA0228 

K=K* 1  AHCA0229 

head  (S.JOO  MATL(K>,i\lh(K),KSH(K),Kwt(K),KTU(K),CON(K)ARCA0230 

I, TASK) ,CRA(K) ,CH8(K) , V) 1 (K) .vFj(K)  AHCA0231 

KT=KTU(K)  AHCA0232 

IF(KT)  200/, 2009, 2002  ARCA0233 

2002  1F(KSH(K)_1|  2005.20U5.2003  ARCA0234 

2003  IF(KB*(KI)>  2007.2007.2004  ARCA0236 

2004  KbW (K 1 ) =1  ARCA0236 

o'J  TO  2009  ARCA0237 

2n06  1F(K8W(KI)-1)  2006.2007,2006  AwCAo23b 

2006  kHW(kT)=o  ARCA0239 

60  TO  2009  ARCA0240 

2007  WRITE (KOUT. 2008)  KT ,K, J. 1 »KSr <K)  AHCA0241 

2008  FORMAT (//ioA.25HASSl6NMtNT  OF  IlME  T AbLE  12.9H  TO  NODE  .lj.70"  CUNARCA0242 

lELICTa  IN  oACK  WALL/FRONT  *AlL  SENSE  WITH  AN  EARLIER  ASSIGNMENT  UTARCA02a3 
2/10X,J?MlHt6  T AbLt ,  uU 1 T  JOb.  COLUMN  IS  .I3.9M.  HOW  IS  .13,176,  5IARCA0244 
JOE  HEATED  la  .11)  ARCA0245 

STOP  AHCA0246 

2009  CONTINUE  ARCA0247 

IF (CuA (K: |  2000.2001.2001  ARCA0248 

2000  cRA(K)=-CR«(k)  AHCA0249 

KOAP(k ) =i  AHCA0250 

()0  TO  201  ARCA0251 

2001  KGAP(K)=0  ARCA0252 

201  wRlTc  (6,316)  MA)E ( K ) ,KTH(K) »K$H(K) ,KWE (K) , K  TU (K ) , CONARCA0253 

1 (K) ,TA(K) ,CRA(K) ,CR8(K) , VF1 (K ) . VF3 (K )  ARCA0254 

CALL  LCOUNl (2. LCT.NPg,kEC0R0<35>)  ARCA0255 

WRITE  (6.309)  ARCAo256 

READ  (5*30 J)  N'd  ARCA02S7 

J=0  ARCA0258 

232  J=J»l  ARCA0259 

CALL  LCUUnI(5,LLT,NP6.HEC0R0(35))  ARCA0260 

"RITE  (6,310)  J  ARCA0261 

1=1  AHCA0262 

20  J  READ  (5. 3030)  NC.lTd,  J)  ,RT  (I .  J),CPT  (I ,  J)  ,CNT  (I.J)  ,tPT  (I ,  J)  .CNT?(  1  .ARCA0263 
1J)  ARCA0264 

RT(I,J)=«Td.J)  ARCA0265 

CALL  LC0()fjTU,LCl,NP(.,HEL(>R0(3b>)  ARCA0266 

wHITf  (6.316)  IT  d.J), RT(1.J).CPT  d  ,  J)  ,CNT  d,J).EPT  ( I ARCA0267 

l,J),CNT2d,J)  aRCA0268 

IF  (NO  205.204,205  AWCA0269 

204  I  =  X » 1  ARCA0270 


go  to  20 3 

Job  TIMMJ)*TtU.J> 

1L0<J)=1 

IH1<J)=I 

1R<J)=1 

IH2<1*J)=0* 

IFtJ-ll  2nb3.20b0.20b3 
joso  continue 

U.O<i*I  =  i 
1«1U‘»>  =  I 
IRC  19)=  1 
2053  CONTINUE 

uO  2051-L=2*t 

JObl  TrtZ<L.J)=TnZ<L-l.J)*<cRT<L*J)*cRT<L“l,J>>/2.»<TT<L.J)-TT<L-l*J>) 
TZ«53*. 

CALL  LOOK  (J.tZ.TIU.J)  .THJll.J)  *0*0*0  *6bH  *HA  * 1 ) 

JO  2052  L=|.I 

2042  fHj  (L  * J>  =  T1*Z (L* J) -HSH 
If  <  J-N14T1  202*206*200 

C - Tint  (HEAtIHG)  TABLES* 

206  CALL  LC0UNll4.LCT.Nf,U,HEC0«D(3bl) 
w*UTE<b.bi4) 

J-0 

20  T  J=J*l 
nTH=o 
lS=i) 
i\N=0 
•nOPT  =  0 

1/1  nTh=nTH* l 

KEAO<5,303)  NC.ThT1NTm.jI .RETINIh.j) .TGRINTm.J) ,ChT(N1h,j) . 

IIP! (NTn.J) *ToPP(NTH,j) 

ifiturpinth.jii  374. 375.374 

>76  l8WP(NTM,j)=t)RP 
</<*  i J=  1 

IT (CmT (NTh.J) J  342*342*343 

142  I  J=2 

If  IP;  1 (nIm*J)-2.I  344.J44.343 
J44  IJ=3 

143  ICPT  (Ml**) -I.- 
IFllJ-lSl  346*346* J46 

145  NOPTsIIOHT*! 

1S=Ij 

14b  IF(NC)  3/2*37 1 . 3/2 
1/2  1L0(J*2U)  =  1 
IHI  (J*?0/=.*Il* 
iwlj. 20>=i 

CALL  lCouni (-3*LCT.nhu,RECOwd(36i 1 
WRIT!  <6*51301  J 

5<«0  *  OKMflf  </lSA.l8«TIMt  I AgLE  NUMBt*  *12/1 
Is-'J 

•jO  34/6  1  =  1  .NTH 

CALL  LtOUM  1  l*LCT.NPO.HECOMo<3bl  1 
U=10PT<I| 

IFUj-IS)  34/ *340*34/ 

>4/  lb=IJ 

LCTX=m 

lFU3.t3.2l  cCTX=3 

call  LCOumI  1LCTA.LC1.N1-G,REC0Ru<3S|  1 
GO  TO  (3471*3472. J4/31 *IJ 

3471  kT=KB«< J1 ♦ 1 

uO  TO  1347/. 3478) *KT 
3477  riPlTE 1KOUT *6351 
GO  TO  34/9 

3476  aRITt 1KOUT  »53S0* 

34/0  CONIINUt 
i\N=l 

GO  TO  34/4 

3472  RRITt (KOUT*bb2) 

GO  To  3475 

3473  *R!TF.<KOUT*b56l 
GO  TO  34/5 

140  GO  TO  <3474, 3476,34/6) . 1J 

3474  **RI  Tf  16,516)  THI<I,J),1J,HET*1.J),TUM<I,J).CMT(1.J). 

ITPIlI  *J)  ,ToRP(l *J) 

GO  <0  347b 

3476  nRlTf 16*536)  THT lI«J)*IJ,PtT(I*J)*lUR(l,J) 

3476  CONTINUE 
N6T=J 

IFIKN)  3732*3732.373 
3/3  UO  3731  1=1, UTM 

3731  TPI  ( I ,  J1  =ALO>»  1AMAX1  (TP  I  <  I*  J)  ,.0000011  ) 
z.NN=  1 

3732  IF (.‘*C  I  207*207.3733 
3/33  1F1KNNI  1370, 1360*326 

128  CALL  LCOUnI l2,LCT*NPG,MtC0R0(35) > 

«r»l7F<6.6  |/1 

- - bURf  Act  iHtHMOCMEMlSTHt  TABLtS 

xEAUl INPUT .57061  CMHb.VFZ.NR.NbT ,K  TCTb • (KMTL  < 1 ) .OELHf (1) ,1  =  1*5) 
rTCT8=KTCT6*l 


APCA0271 

AHCA0272 

ARCA0273 

ARCAu274 

ARCA0275 

ARCA0276 

AHCA0277 

ARCA0278 

ARCA0279 

AWCA0280 

ARCA0281 

ARCA0262 

AHCA0263 

ARCA0284 

AKCA0285 

ARCAQ286 

ARCA0267 

ARCA0286 

ARCA0289 

ARCA0290 

ARCA0291 

AHCA0292 

ARCA0293 

ARCA0294 

ARCA4295 

ARCA0296 

ARCA0297 

AOCA0296 

AHCA0299 

ARCA0300 

ARCA0301 

ARCA0302 

AHCA0303 

ARCA0304 

AMCA0305 

AMCA0306 

ARCA0307 

ARCA0306 

ARCA0309 

AXCA0310 

AMCA0311 

ARCA0312 

AXCA0313 

AMCA0314 

mKCAvjiS 

ARCA0316 

AMCA031 7 

ARCA0316 

AHCA0319 

ARCA0320 

AWCA0321 

AXCA0322 

ARCAO 323 

ARCA0324 

AJCA0326 

AftCAr.326 

AMCA0327 

ARCA0326 

ARCA0329 

4RCA03 10 

ARCA0331 

AWCA0332 

ARCA0333 

ARCA0334 

ARCA0336 

ARCA0336 

ARCA0337 

ARCAA338 

ARCA0339 

ARCA0340 

HRCA0341 

«RCA0342 

ARCA0343 

ARCA0344 

AHCA0345 

ARCA0346 

ARCA0347 

AHCA034d 

AJCA0349 

AHCAQ350 

ARCA0361 

ARCA0352 

AOCA0303 

ARCA0354 

AMCA0355 

ARCA0356 

AMCA0357 

ARCA0358 

ARCAo 359 

ARCAQ360 


I 


I 


VKINsVf l 
0H2S=UH2 

IF  INST  I  2900*2900*2901 

2900  CHH=CMNS 
00  TO  2902 

2901  IF (KNST-77  7)  2909. 2903. 2S(09 
2903  1F<CMH-CHH0)  2907*2905*2907 
2905  CALL  LC0UnI14.lCT.NPg,HEC0RD(3S>) 

WRITE (KOUT. 2906) 


ARCA0361 

ARCA0362 

AHCA0363 

ARCA0364 

ARCA0365 

ARCA036b 

ARCA0367 

ARCAQ368 

ARCA0369 


2906  FORMAT (//1O6.S0HSUWF ACE  TABLES  ARE  THE  SAME  AS  IN  PREVIOUS  PR0BLtMARCA0370 

1//)  ARCA0371 

GO  TO  1390  ARCA0372 

2907  CALL  LCOUnI  (4.LCT  .NPo.RECORO  (3b) )  1  ARCA‘0373 

wR1TE(KOUT.2908>  ARCA0374 

2908  FORMAT  (//10A.72HPREV10US  SURFACE  TABLES  CALLED  FOR  BUT  CH/CH  RAT 10ARCA0375 

1  HAS  CHANGtO,  UUIT  JOB//)  ARCA0376 

STOP  ARCA0377 

2909  CALL  LCOUNt (4*LCT*NPO.RECORO(35) )  ARCA0378 

WRIT£(KOUT,2910)  .  ■  ARCA0379 

2910  F ORMaT (//l0A*70HPR£VIOUS  SURFACE  TABLES  CALLED  FOR  BUT  THIS  IS  FIRARCA0380  l 

1ST  PROBLEM.  OU1T  JOd//)  ARCA03R1 

STOP  ARCA0382 

2902  ftNST=777  ARCA0383 

If  (RSV)  3280.3280.3281  ARCA0384 

3280  NR-0  j  ARCA038S 

J281  CONTINUE  '  ARCA0386 

»LS=-1  I  AHCA0387 

NSEN=-1  ARCA0388 

IP=1  ‘  ARCA0389 

1PN-1  ARCA0390 

1=1  1  AHCA0391 

IN=1  ARCA0392 

J=0  '  s  ARCA0393 

2H00  J=J»1  |  !  .  ARCA0394 

00  TO  I29ii,2912,2913.2914) .XTCTB  ARCA0395 

2911  READ!  INCH. S7S0)  PSV ,  ILMCI  J.  It  IP)  .OHS.WLO.TTSU.  1.  IP)  .  TCHEMI  J.  I .  IP)  ARCA039b 

I.TSEn(J) .TSURF(J) ,JnG  ARCA0397 

00  TO  2916  AHCA039B 

2912  READ (INCh, 3781)  PSV ,TLMC I J. I . IP> .UHS.WLU.TTSIJ. I .IP) .TCHEMI J. I , IP) AHCA0J99 . 

l.TSLN(J) .TSURFIJ) ,JNO  1  1  ARCAU400 

00  TO  2916  ARCA0401 

2913  HEAD ( INCH, 3 782)  PSV , TLMC ( J. I .IP ) .OHS.VLD.TTS (J.I . IPt .TCHEM { J, I , IP)ARCA0402 

l.TSEN(J) .TSUHF(J) ,JNO  ARCA0403 

2916  JNO=JNG-l  ARCA0404 

00  10  2919  j  AKLA040S 

2914  HtAU (INCH ,3791)  PSV, DMS, TLMC (J.I, IP) , ITS (J.I, IP) .WLO.TCMEM ( J , I , IP) ARCA0406 

l.TsLN(J) .JNO.TSUPF ( J)  ,  ARCA0407 

2915  CONTINUE  ARCA0408 

IF(jno)  2817,2817,2821  !  ARCA0409 

2817  ISURF(J) =HoANK  J  I  ARCA0410 

2621  CONTINUE  ARCA04H 

IFTTTsIJ, 1 , IP) )  280 3*2832,2801  •  .ARCA0412 

2801  TTS(J,I.IP)=TTS(J. I , IP) °1 ,8  ARCA0413 

TCHEMI  J.I  ,IP)='lCMt'M(J,I.IP|®1.8  ARCA0414 

TSEN(J)iTSLN(J)»l,8  ARCA0415 

GO  TO  ,>805  .  ARCA0416 

2003  TTS(J,I,lP)=-TTS(J,I,IP)  '  ,  ARCA0417 

2805  IF(WLS)  2309.2807*2807  AHCA0418 

2807  IA=h  ■  ■  ARCA0419 

IF(WLS-WLO)  2824,2811.2824  ARCA0420 

2009  WLS=WLO  ARCA0421 

2811  IF(NStN)  2802.2828,2828  ARCA0422 

2802  IF(onG)  2800.2804,2804  ARCA0423 

2«P4  I.SEN  =  J-1  AHCA0424 

ISEN(IP)=N8EN  I  ARCAi'425 

IF  (NSEN-II  8306,7806,7806  ARCA0426 

7806  00  2806  L=1«nSEn  ■  ARCA0427 

TTStN(L,lP)=TTS(L,l.lP)  AHCA0428 

T2SENIL, IP>  =  TCHEM(L» 1 , IP)  ARCA0429 

2006  THSEN (L , IP) = (SEN (L)  ,  ARCA0430 

8806  CONTINUE  .  ;  !  AHCA0431 

IF(NStN-l)  2820.2820,2808  AHCA0432 

2808  CALL  SLOPQ<NSEN,TT5£N(l,lP),THStN<l,IP>,TCPSEN(l,lP>)  ARCA0433 

CALL  SlOPOlNSEN.TTSENil.lP) .T2SENI 1 . IP) . TC2SEN1 1 . IP) )  ARCA0434 

LLL=(NSEN-l)/3»l  AKCA0435 

IF(lP-l)  2815.2813.2815  AHCA0436 

201 J  call  LCOUnT 19, LOT .NPO.RECOHOI 35) )  '  ARCA0437 

WRITE  (KOl) 1 ,538)  ,  !  ARCA0438 

WRITE  (KOUl ,5797)  CHm.wLO  ;  ARCA0439 

IF  (»'HI  2818,2818.2816  ARCA()4Ao 

2816  WR1IF  (KOUl.5799)  ARCA0441 

GO  TO  2815  ,  ARCA0442 

2818  WHITE  (KOUT.5790)  AHCA0443 

2815  CONTINUE  ,  ARCA0444 

LL=IP-1  ARCA0445 

IF  ILL)  281S0,2blSl.2Ml50  ,  ARCA0446 

28150  GALL  LCOUnI (7, LCT.NPy, R£COHD(35l >  ARCA0447 

WRITE (ROUT .713)  '  ARCA0448 

713  f ORMAT (1H  )  ARCA0449 

WRITE IKOUT. 712)  LL.KT.UH2  I  ARCA0450 
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712  FORMAT  is*. 74HTHIS  COMPLETES  THE  INPUT  AND  DISPLAY  OF  SURFACE  TMEHMAHCA04S1 

iocmemisthy  table  no.  .n.iM./SA.76HThi$  table  has  incorporateu  b»  arcane 

2UStR  ASSIGNMENT  THE  SPECIFIC  heat  OF  HATERIAL/SA.4MN0.  .11. JAM  ANUARCA0453 
3  A  ntAT  OF  FORMATION  VALUE  OF  .F6.0.31H  bTU/LB  AT  S36  DEGREES  RANKARCAQ454 


aINE.Z/1 
2Blsl  LLLMsMAXO (LLL.O) 

call  LCOUNI (LLCM»6.LCT«NP&,R£C0HD(3S) 1 
rRITE  (KOoT .S792)PSV 
IF  (LLL-1)  OB19.88lN.oolY 
0819  jO  2819  LL=1.LLL 

IF  (NSEN-LL)  7819.0B19.6B19 
'lAl'i  INT  =  (NSEN-LL) /LLL 
«2*LL*  INTalLL 

»R1I( (K0JT.579U)  (TTS£N(L.IP).ThS£N(L.1P».L=LL.M2 
7a W  CONTINUE 
iu  19  CONTINUE 
9M|9  CONTINUE  I 
1.0  TO  /B62 
2A20  NS£N=0 
IX=3 

IFICmh-1.1  2824. 2822.2824 
2822  1A=2 

IFmcul  2824,2826. 2824 
■  2824  «RITE  (KOUT *8793)  U 


•  LLL) 


STOP 

2420  IF  €  IP- 1  *  £002. 2861. 2062 
2828  IF (TTS(J.I.IP) )  2829. 2832. 2o29 
If  (PSV-TPpUP) )  2d32.2830.2BJ2 
2«30  IF (0M5-TMG (I i IP) )  2d34.2800.28j4 
2M2  IPNslP.l 
l,MG(IP)  =  I 
IN=0 

i.SENa-NSEN 
8aJ4  IN=1N. 1 

.«I (I .IPlsJ-l 
NMC=j-l 
lX=S 

IF"  (Nml**  1 1  2024.2824.4bs2 
aj-82  CONTINUE 

call  uk0ero(nMC.TLMc<1.I,Ih),12i 

CALL  SEOUA 1NMC,IZ.IIS(1,1.1P).ICH£M(1,1.IP) »TSEN ( 1 > .TSURF (11) 
l*  =  0 
10*1 
opu=o. 
mGA=o. 

M=kmTl  (  Ip) 

If  (Ml  28360. 28360. 2oJol 
28  3ov  <m2=()h?s 
Mm 

oO  TO  2oJA2 
28 3C 1  i-n2=UELHf  ( IP) 

28362  CONTINUE 

NLOtl«IP)=l 
'  AHl ( I . IP ) si 
1l*s2  00  2HS?  K=1,NMC 

t)P=UFG.  Tcuc  (ft*  I  .  IP) 

CALL  lC'WIM.  UStK*  I.  IP)  .TTI  l.M)  .TM/U.KT)  .O.O.O.HCH.C  T2*  1 ) 
nCHoHCn .0H2 

IF INSeN)  20JB.2d36.2838 

24J6  lCHEM(N,l,lP|8dPG*ilGA.TLMC(N.I.lP)«HCM-BP»TSENlM 
uO  To  2841 

2418  CALL  O6LE(I.1TS(N.1,1P).M2,1SENUPi.TTSENU.1P).T2SEN(1.1p),Tc/SeNARCA05i3 
H1»Ip>i  ARCA0514 

CALL  OGLE (I.TTS(K.I.IP) .HE. 1 SENT  IP) .TTStNTl* IP7 .ThSENTI. Ip) .TCPSENARCA081S 
1(1. K))  APCA0S16 

ICmEm(6,1,1P)=BPg«MGa.TLHC(i<,I.1P)»MCH-BP«TSEN(K).h/-TCHEp(K.I.IP)ARCA05i7 


APCA04S8 
ARCAU4S6 
ARCA0457 
ARCAQ4SB 
ARCA04S9 
AMCA0460 
ARCA0461 
ARCA0462 
AHCA0463 
ARCA0464 
APCA046S 
APCA0466 
ARCA046? 
ARCA046O 
ARCAQ4o9 
ARCA0470 
ARCA0471 
ARCA0472 
AWCA0473 
ARCA0474 
TIXE  LLARCA047S 
ARCA0476 
ARCA0477 
ARCA0478 
ARCA0479 
ARCA0480 
AHCA04a1 
ARCA0482 
ARCA04H3 
ARCAU4B4 

arcaoabs 

ARCA04B6 
ARCA048  7 
aRCAO'.BB 
ARCAQaAO 
ARCA0490 
ARCA0491 
AMCA0492 
ARCA0443 
AMCA0A94 
AKCAUA9S 

AWCA0496 
AHCA0497 
ARCA0498 
ARCA0499 
ARCAOSOO 
aRCAOSOI 
ARCA0S02 
ARCA0S03 
ARCA0S04 
ARCA050S 
AHCA0506 
ARCA0507 
aRCAoSoB 
ARCA0S09 
aWCAOSIO 
ARCAOSll 
ARCA0512 


1  SEN (K I 8M£ 

2440  If  <TSiJpHK»-BIANK>  2844.2842.2644 
2442  NLOi  1  ♦  IP)  S|T*1 

IF  U&.IX-J)  2046.2846.2824 
2444  (Ml 

2R46  If (N-lG>  20s2.2BS2.284b 

2840  1F«TTS(K.I.1P)-!TS«A-I.I.IP7)  2850. 28S0. 2851 
2E‘Ji  IG=Nmc 

uO  10  28S? 

CAS1  Oil (1«IP)=K 
2452  CONTINUE 

LLL=(NMC-1)/2»1 

CALL  LCOOMHLU..6  .LCT.NPG.REC0KD(35>> 

IF  (CCL-I)  6010.6009. 6009 
6009  *R1 T.NKOUT .5789)  TWO ( I .IP) .TPR ( IP) 
uO  6005  LL=1 tLCL 
IF  (NMC-I.E)  6008.6007* 6007 
6007  1NI  =  (NMC-,.L)/LI.L 
M2=LL*1NI»CLL 
aRITf (A0UT.5795) 

1 (L.l.lP). TSURF (L1.L=LL.M2  ,CCL) 

6(108  CONTINUE 
On'S  CONTINUE 


ARCA0518 
ARCA0519 
ARCA0520 
ARCA0S21 
ARCA0522 
ARCA0S23 
ARCA0524 
ARCA0S?5 
ARCA0526 
ARCA0S27 
ARCA0528 
ARCA0529 

ARCA0530 
ARCA0S31 
AHCA0532 
ARCA0S33 
ARCA0S34 
ARCA0535 
ARCA0536 

(TTS(C. I. IP) . TLHC1L. I. IP) . JCHEMAHCA0S37 

ARCA0538 

ARCA0539 

AHCA0540 


H-7 


6010 

CONTINUE 

ARCA0S41 

IF  (NMC-ll  4856.3856.3856 

ARCA0542 

3856 

00  2856  Kal.NMC 

ARCA0543 

TCHEMIK,  1 .  IP)  =CMM*TCrt£M(K»  1, 1P)-TSENIK> 

ARCA0544 

If (K-NLO(l.lP))  2856.2854.2854 

AHCA0545 

2854 

vK=K 

AHCAi)546 

ILMc(K.I«lP>=ACOG<AMAXl<TLMC(K.I.IP)»VK*l.E-10>> 

ARCA0S47 

2856 

continue 

ARCA0S48 

4H56 

continue 

ARCA0S49 

caul  SSWTCH(J.JJ) 

ARCA0S50 

uO  TO  (710.711). JJ 

ARCA0S51 

710 

CA  LL  LCOUN  H  LUU‘ 6 . LC  T . NPG . RECORO ( 3b  > 1 

ARCA0552 

IF  (LLL-1)  6015.6014.6014 

ARCA0553 

6014 

WRITE,  (KOUT  .5787) 

ARCA0S54 

5787 

FORMAT (///JX.39H - OUMPEO  VERSION  OF  PRECEDING  TABLE—//) 

AHCA055S 

WRITE (KOUT .5785)  TMG( I . IP) . TPR1 IP) 

ARCA0556 

UO  6011  LL=1.LLL 

ARCA0SS7 

IF  (NHC-LD  6013.6012.6012 

ARCA0558 

6012 

1NT= (NMC-LL) /LLL 

ARCA05S9 

M2=LL»INT»lLL 

ARCA0560 

WRITE (KOUT. 5788)  (TTS(L.I.IP) . TLMC (L.I .IP) 

.TCHEMAHCA0561 

lIliMM  ,T5LN(L>  .L=Lu.M2  ,CLL) 

ARCA0S62 

5788 

FORMAT (5X,f0.2,2X.F7.4,2X,F8.2,2X,F8*2.lX,FB.2,2X,F7.4»2X,F8 

•2.2a. ARCA0563 

1F0.2) 

ARCA0564 

6413 

CONTINUE 

ARCA0S65 

6011 

CONTINUE 

ARCA0566 

6015 

CONTINUE 

ARCA0S67 

711 

CONTINUE 

ARCA0568 

IF(1TS(J,I»IP>)  2862,2070.2862 

ARCA0S69 

2d61 

uALL  LcOUNi (8  .LCT ,NPG. RECORD ( 35) ) 

ARCA0570 

WRITF  (KUijT ,538) 

ARCA0571 

■RITE (KOUT .5744) 

ARCA0572 

IF  (HR)  2863.2863.2864 

ARCA0S73 

2864 

wRITf  (KUUT ,5799) 

AKCA0574 

oo  TO  2062 

ARCA0575 

2863 

wRlTt  (FUUI.07VO) 

ARCA0576 

2662 

TPR ( IPN) =P5V 

ARCA0577 

IM0UN,IPn>=UM5 

ARCA0578 

ILHC 1 1 . IN. IPN)  =  ILMC ( J. 1 . IP) 

AWCA0579 

ITS  (l.IN.lPN)aTTS  (J.I.IP) 

AHCA05S0 

TCMEM(1,IN.1PN)=TCMEM(J,I,IP1 

«RCA0581 

TSURF(1)=T5URF(J) 

ARCA0582 

ISEN(  1)  =  TSLN(  J) 

ARCA0583 

J  =  1 

ARCA0584 

1  -  IN 

«KCAu3o3 

1P=IPN 

AHCA0586 

uO  To  2800 

ARCAO507 

2370 

NPK=IP 

ARCA0588 

18(121=1 

ARCA0SB9 

ILO ( 12)  =  1 

AWCA0E90 

1HI(I2)=I 

ARCA0591 

UO  2872  1=1, IP 

ARCA0592 

2872 

IPH(I)=AlOu(TPH(I)) 

ARCA0593 

1R 1 1 3)  =  1 

AWCA0594 

im  (i3i  =npr 

ARCA0595 

ILO  ( 13)  =  1 

ARCA05V6 

WRITf (KOUT. 7 13) 

ARCA0597 

wRITE (kOUT.712)  NPR,kT.0H2 

ARCA0598 

CALL  SSVTCM<3.KSSw) 

ARCA0S99 

uO  TO  ( 700*1390) ,KS5w 

ARCAObOO 

700 

CALL  LCOUN) ( j.LCT . NPo, RECORD ( 35) > 

ARCA0601 

WRI IF (KOUT. 703) 

ARCA0602 

703  eCRMATi//10A*4bHUUMH  OF  TAbtt  INDlCtS  NLOC! * J> *NHI ( It J) *KhI < !♦ J> >  ARCAQ603 


uO  701  J=l*NPk 

ARCA0604 

CALL  LCOUNT ( 3.LCT , N°6 ♦ RECORD ( 35) ) 

ARC40605 

wRITr (KUUT ,704)  J 

ARCA0606 

70  A 

,  0RMAK/1SA.6HIPR  =  ,  12/lM  ) 

AWCA0607 

L=NMO(J) 

ARCAO6O0 

CALL  LCOUNI (L.LCT.NRu.0ECORO(35) ) 

ARCA0609 

wRITF (KOUT .702)  (NLO(I »J) .NHI (I.J) ,KHI ( I , J) , 1=1 »L) 

ARCA0610 

702 

. ORMA  T(20j<,J(2x,I2)) 

AWCA0611 

701 

C0NT1NUF 

ARCA06I2 

1390 

CONTINUE 

ARCAC613 

00  705  IPsl.NPR 

ARCA0614 

1F(NM6(IP)-1)  7051, 7052. 70S 

ARCA06lb 

7451 

!X=b 

ARCA0616 

wRITf  (K')UT, 5793)  IX 

ARCA0617 

STOP 

ARCA061B 

7 151: 

NMC=NnI (1.1P) 

ARCA0619 

Nrll  (2,IP)=NMl  (I.IPI 

ARCA0620 

NL0(2.IP)=NC0(1.1P) 

ARCA062I 

KmI (2.IP) =khI ( 1.IP) 

ARCA0622 

TM6(2,IP)=lMG(l,IP)»1.001 

ARCA0623 

UO  7053  J=l.NHC 

ARCA0624 

(T5(J.2.IP)=TI5( J.I.IP) 

AHCA0625 

ILMC (U.2. IP) =TLMC( J.I.IP) 

ARCA0626 

70SJ 

ICMEM(J,i,lR)=TCHEM( J.I.IP) 

ARCA|)b27 

705 

continue 

ARCA062B 

- - 

-INITIAL  UAIIONb 

ARCA0629 

IHrlnl 

ARCA0630 
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HRT  =  IHl*trt>' 

UNTS=2K0 
uNT1=2R0 
uThU  =  100»0 
n<=mm«nN 
lAn=n 

r<0=RTt  1,  (l 

CMDsO* 

C - nOTE  TABLE  ll  DIVES  ^  IN  «  OlRtCTION 

UO  216  1=1*  NMT 

IF  ICNT2tl*l>  *NE.  0.01  00  10  216 

JO  215  J  =  1*15 
CNT21 J* 1)  =  CNT<J«11 
?1S  CONTINUE 
p)6  CONTINUE 

UO  »25  1=1*NN 
USOT (ll-O.U 
US0TH1 1 1 =0*0 

usdiso.o 
UST (11=0.0 
USTT(ll=0.0 
UCONOTlllsO. 

OSOTBNlIl-O. 

USN(11=0. 

(JCNV(11=0. 

OCNVT ( 11=0. 

lAdUStl)=0 

OCHM(li=0. 

UCHHT(I)=0. 
uRABUl=9. 
uRABT  1 1 1  =0* 
uRAimi  =  0. 

uRADT ( I 1 =0. 

CHUflTtl)=0* 

CHT (1 ) =0. 
korup 111=0 
025  1ST  11=0.0 

- - SURFACE  IDENTIFICATION  AnO  ChECMNU 

M=0 

8=0 

uO  0? 6  .1*1  *NN 

L=-l 

AT=0 

UO  8po  1=1*MH 
A=l\*  1 
aT5=KT 
KT=MA!L(K1 
IF (NT)  827*827. 826 
827  1F(kT5)  0Po.828.82U 
829  L=L* 1 

f,CAN=A-l 
»26  CONTINUE 

IF (AT I  0291*8201*8200 
8?80  L=L*1 

ftCAN=K  ,  , 

(. _ FOHHEkCy  EaCLUUEO  BOLES  HERE 

CbPOl  IF1L1  rip9l*02h2«8291 
8P01  CONTINUE 

a?02  nsuR<ji=nC«.i 

MATE (NCAN) =-MATL (KCAN | 

ISU1  =  TA(KCAN1 
l\SH<KCAN)  =  l 

«0  To  828  ,  „  _ 

bp91  CAUL  UCOUNl (2*LCT *NHu*kECOHO (351 1 

hp92  FOHHAT?A0A?33HERHONtOUS  NODAL  LATOUT  IN  COLUMN  .13/1 
M=M*\ 

A2M  CONTINUE 

1F(M)  8281*8281*8280 
8280  Th=ThF 

UO  TO  868 
8?81  CONTINUE 

CALL  LCOUNl  to*LCT*NPO.REC0RDU61 1 
•RITE  (6*1071 

- - oEOMElRI  CALCULAT IONb 

uO  »2o3  I=1*NN 
k=i\SUR(1> 
j=k»  i 

L=J*MM* 1 

SR1I)=«CR1J1*CR(LI 1/2. 
nP83  s2UI  =  (C<!(Jl‘C2(Lll/2. 

A=0 

l=MM*1 

N=L 

4=0 

uO  1  J=1.NN 
,|0  2  1  =  1. MM 
K=K*  1 
L=L‘l 


ARCA0631 

ARCA0632 

ARCA0633 

ARCA0634 

ARCA0635 

ARCA0636 

ARCA0637 

ARCA0638 

ARCA0639 

ARCA0640 

ARCA0641 

ARCA0642 

ARCA0643 

ARCA0644 

ARCAO64S 

ARCA0646 

ARCA064? 

ARCA0648 

ARCA0649 

ARCA0650 

ARCA0681 

ARCA06O2 

ARCA0653 

ARCA0654 

ARCA06S5 

ARCA0656 

ARCA0657 

ARCA065H 

ARCA06S9 

ARCA0660 

ARCA0661 

ARCA0662 

AHCA0663 

ARCA0664 

ARCA0665 

ARCA0666 

AHCA0667 

ARCA0668 

4«CA0b69 

AMCA0670 

ARCA0671 

AWCA0672 

AHCA0673 

ARCA0674 

MKLBU6/6 

ARCA0676 

ARCA0677 

AKCA0678 

ARCA0679 

ARCA0680 

ARCA0681 

ARCA06B2 

ARCA0683 

AMCA0684 

APCA0685 

ARCA0686 

AHCA0687 

ARCA0688 

ARCA0689 

ARCA0690 

«HCA069l 

ARCA0692 

ARCA0693 

4RCA0694 

rtRCA069:i 

ARCA0696 

mRCA0697 

ARCA0698 

ARCA0699 

ARCA0700 

ARCA0701 

AHCA0702 

ARCA0703 

AHCA0704 

ARCA0705 

ARCA0706 

ARCA0707 

AMCA0708 

ARCA0709 

ARCA0710 

ARCA0711 

ARCA0712 

ARCA0713 

ARCA07 14 

ARCA0715 

ARCA07 16 

ARCA0717 

ARCA0710 

ARCA0719 

ARCA0720 


**  -  - - - 


H=M.  1 

IF  (ACOO)  4.3.4 

C - PROVISIONS  FOR  EIThER  CENTERED  OR  8ACKSHIFTED  NODES 

3  IF(KCENT)  3000*3000*3001 

3001  AC(K)  =  .2S*(AAOO.AA(K.1).AA(L>*AAU.*1>> 

GO  TO  4 

3000  AC(K)=0.S0»(AA(K).AA(L>) 

4  IF  ( AO (K ) )  6.5*6 

.  S  IF(KCENT)  3002*3002*3003 
3003  A0UO  =  .25»(AB(lO.AB(iwl>.AB<L>*AB(l.»l>> 

GO  TO  6 

3002  4D(K)=o*50#(AB(N)*AB(D) 

6  CALL  LCOUNlI l.LCT, NRG .RECORD! 3S)> 

WRITE (6.318)  I.O.AA(K) .AB(K) .  ACOO  .AD(K) 
lF(KCENT)  3008.3008*3009 

3009  HA=Fv»(AA(N) .AA(K*1))-AC(K) 

HB=Fv«(A6(K)»AB(K*1))-AD1K> 

GO  TO  3010 

3006  CONTINUE 

hA=AAIK)-AC(K> 

MB=Ab(K)-AU(K) 

3010  CONTINUE 

hC=ha»ha»mb«h8 
PLA(M)  =FT*SURT  (HC) 

MA=FV»(AA(G.1).AA(L.|) ) -AC  CK) 

HB=FV®(AB(A»1)*AB!L*1))-AD(K> 

hc=ha«ha*h»*hb 

PLB(M)=FT<*SURT  (HC) 

IF (KCENT )  3011.3011.3012 

3012  HA=FV«(AA(L)»AA<LM))“AC<K> 
mB=FV >(Ab(L) *Aa<L«l) 1-AD1K) 

GO  TO  3013 

30U  CONTINUE 

hA=AA(L)-AC(K> 

HB=AB(L)-AU(K) 

3013  CONTINUE 
hC=MA*HA«HB«MB 
HLC(M)=FT*bURT  (HC) 

IF(KcENT)  3005. 300b. 3006 

3006  HA=)v»(AA|H).AA(L))-AC(K) 

MU=f  V»(Ad(A)  .Ab(L))-AO(K) 

HC=HA«HA»Hb«HB 
RLD(M)=FT«sOkT(HC) 
gO  TO  3007 
300b  hlO(M)=^ku 
300  7  v-ONTlNUE 

hA=AAOO«AA(K) 

HH=AA(K)*AA(k»1> 

HC=AA(K)*AA(l) 
hOsAA(K*))*AA  (K«l) 

HE-AA(K*D»AA(L*1) 

MF=AA(L)*AA(L) 

HG=AA(L)«4A(L*l> 

HMzAA (L ♦ I ) *AA (L.  1 ) 
h5=2RO 

hS=Hb.40(K)» (HC-HB*HF-H0) 

HS-HS.AB (^» 1 ) • (HB-HE.HA-HH) 

MS=HS«AB (L) « (HG-mC.Hh-mA) 
hS-hS* AQ ( c  *  1)  •(HE-hG.HU-HF) 

VOL(M)=6.o60l71F.-04»ABS  (HS) 

2  CONTINUE 
K=K»i 
L=L»i 

CAIC  lCOUNT ( l.LCT. NRG. RECORD (35)) 

<iHIYE(6*316)  N.J.Aa(K)  *AB(K) 

1  CONTINUE 

IF (KORTG)  3025.3025.3019 
J019  K=0 

L  =  mm* I 
M  =  <i 

DO  3020  J=l.NN 
GO  3021  1=1. MM 
K  =  r.»i 
L  =  L*  1 
M  =  M.  1 

IF  (UMM)  3022.3023.3023 

3022  CALL  CUSlMACOU.  AD(K).  AC(K.l).  AU(IS*1>  *  AA(K»1>.  AB(iOl). 

1 AA ( L« I ) .  AB(L»l) .  HA) 

SINAc(M)  =  HA 

3023  1F1J-NN)  3024.3021.3021 

3024  CALL  CUSINIACOO.  AU(K).  AC(L>*  AD(L) .  AAlL.l).  AB(L.l).  AA(L). 
IaB(L).  HA) 

SINAO(M)=  HA 
3®2l  CONTINUE 
A  =  K»1 
L  =  L*1 
3020  CONTINUE 

CALL  SSUTCM(9.KSS*> 

GO  To  (3028.3025) .AbbW 
302H  CALL  cC0UNl(3*KA.  lCT.NPG.  HECUHD(35)) 


ARCA0721 
ARCA0722 
ARCA0723 
ARCAQ734 
ARCA0725 
AHCA0726 
ARCA0727 
ARCA0728 
AHCA0729 
ARCA0730 
ARCA0731 
AHCA0732 
ARCA0733 
AHCA0734 
ARCA0735 
ARCA0736 
ARCA0737 
ARCA0738 
ARCA0739 
ARCA0740 
ARCA0741 
ARCA0742 
ARCA0743 
ARCA0744 
ARCA0745 
ARCA0746 
ARCA0747 
ARCA074B 
ARCA0749 
ARCA07S0 
ARCA0751 
ARCA0752 
ARCA07S3 
ARCA0754 
ARCA0755 
ARCA0756 
ARCA07S7 
ARCA07SE 
ARCA0759 
ARCA0760 
ARCA0761 
AHCA0762 
ARCA0763 
ARCA0764 
AKCAu/bb 
ARCA0766 
ARCA0747 
AHCA0768 
ARCA0769 
ARCA0770 
ARCA0771 
ARCA0772 
AHCA0773 
ARCAQ774 
ARCA0775 
ARCA0776 
ARCA0777 
ARCA0778 
ARCA0779 
ARCA0730 
ARCA07B1 
ARCA07B2 
ARCA0783 
ARCA07(j4 
ARCA0785 
ARCA0786 
ARCA0787 
ARCA0788 
ARCA0789 
ARCA0700 
ARCA0791 
ARCA0702 
ARCA0793 
ARCA0F94 
ARCA0795 
ARCA07')b 
ARCA0797 
ARCA0  798 
«RCAn799 
ARCA0800 
ARCAoBoI 
ARCA0802 
ARCA0803 
ARCA0804 
ARCA0805 
ARCA0806 
ANCA0807 
ARCA080H 
ARCA0809 
ARCA0810 


p 


3c2V  "oHHini0x!32HDUHpSOFACONDUCTANCE  SINE  FACTORS//10*.  1SHSINAC 
llNAD//i8X.F7.5»3X.F7.S>) 

3025  CONTINUE 
6*0 
l.  =  MM‘l 
M  =  0 

00  3026  J=1.NN 
UO  3027  1=1. MM 
IX  a  6*1 
U  =  L*1 
rt  =  M*  1 

tiA=AAt6*l)-AA<K) 
hB=Ab(K»1|-AB(M 
HCsHA«HA«HB*HB 
r*D=S0RT  (HC) 

rt£=PlB,HDMAA<6)«AA<l\.l>> 

HA=Aa(L)-AA(6> 

mB=AB(U-4B<6) 

MC=HA«HA»HB#HB 
r*D=S0K7  (MCI 
hf=pib*mi)«(AA(iu  «aa<d  ) 

AA (M) =HE 
3027  AB(M)=HF 
6=6*1 
L=L*1 

7  HA=Aa(L)-AA(K) 
hB=AB(L)'Ao(K) 

MC=HA*HA*Ho*HB 
M0=S'iBT  (HC) 

ACtM)=PIC*rtO»(AA(6)*AA(L)> 

3026  CONTINUE 
LU=Mm* 1 
LL=NN»1 
UO  12  1=1«LU 

CALL  LCOUNl < l.LCT .NPo.RECORD ( 351 ) 

12  ntiITCI6«3lo)  I »LL  » AA(K 1  * A0 (K ) 

M=M-MM 
A=K-HM-1 
UO  B  I=|.MM 
6=6*1 
M=M*1 

0  r1A=AA(K.l)-AA(K) 
nB'-A8C'M|-“B(K> 

tlC=MA*MA*Ht)»u8 
rlO=SQRT  IhCI 

AO(H)=PIfl««0»«AA(K)  «AA  (B«l)  ) 

B  CONTINUE 
M=0 
L=HM 
6=MM-1 
N=NN-l 
UO  10  J=1.N 
UO  11  1=1.6 
M=M*1 
L=L*1 

13  ACIM)=AB(M*1> 

14  AOIM)sAA(l) 

ii  continue 
h=m»i 

u=L*  1 

IB  A0(H)SAA(L* 

10  CONTINUE 

UO  1002  I  =.1*6 
M=M*  1 

1002  AC(M)=A8<mM) 

UO  1000  J-l*NN 
K=KSUPU) 

1000  PLBS(J)=PL0<6) *PLO (6) 

CALL  LCOUUl I-10*LCT*NPO*HECOHD(3S) > 

WRITE  (6. 31V> 

iter=o 

- - MAIN  lTEHAtlON  LOOP 

30  IF  (OLTil)  31.31*32 

31  OTH=100. 

00  TO  33 

32  uTH=0LTH 

C----MTATtRIAL,<pioPE«TIES.NOUAL  RESISTANCtS  AND  CAPACITIES 

1  =  0 

IF  IOLOO)  av3U.AP3V.4999 
A9TV  i.=MM 

uO  39  JJ=1»NN 
UO  AO  lllsl.NN 
1  =  1-1 
L=L‘l 

IF (HAIL! 1) *  A2.Al.A2 

A 1  HA(I)=2HU 
DU  I  I  I  =7 U.l 
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ARCAQB11 

SABCA0812 

AMCA0813 

ARCA0B1A 

AMCA081S 

AHCA0816 

ARCA0817 

AHCAOBlfl 

ARCA0819 

ARCA0820 

ARCA0821 

ARCA0822 

AHCA0823 

AMCA08HA 

ARCA0828 

ARCA0826 

ARCA0827 

AHCA0828 

AHCA0B29 

ARCA0830 

ARCA0831 

ARCA0832 

ARCA0833 

ARCA083A 

ARCAO83S 

ARCAO836 

ARCA0837 

ARCAOB38 

ARCA0B3V 

arcaobao 

ARCAOBaI 

ARCA0BA2 

ARCA0BA3 

ARCA08AA 

ARCA08A5 

ARCAOB46 

ARCA08A7 

ARCA08AB 

ARCA08A9 

ARCAO85O 

AHCA08B1 

ARCA0852 

ARCA08S3 

ARCA085A 

HKCAU033 

ARCAOBSb 

ARCA0B57 

ARCA0858 

AHCA0859 

ARCAOBbO 

ARCA0861 

ARCA0862 

ARCA0B63 

ARCA086« 

ARCA0B6S 

ARCA0866 

ARCA0067 

ARCA086B 

ARCA0869 

ARCA0870 

ARCA087I 

ARCA0872 

ARCA08I3 

ARCA087A 

ARCA087S 

ARCA0876 

ARCA0B77 

ARCA0878 

ARCA0879 

ARCA0880 

ARCA0881 

ARCA0882 

ARCA0083 

ARCA088A 

ARCA088S 

ARCA0886 

ARCA0887 

ARCAOBSB 

ARCA0889 

ARCA0890 

ARCA0891 

ARCA0B92 

ARCA0893 

ARCA089A 

AHCA0B95 

ARCA0896 

ARCA0897 

ARCA0898 

ARCA0B99 

ARCA0900 


A 


1 

1 


60  70  40 

ARCA0901 

42 

RTMABSIMAIlI  I)  ) 

ARCA0902 

IF  (TTMXlKU-TAdl)  43.43.44 

AVCA0903 

43 

HB=IA(I> 

AKCA0904 

60  TO  500 

APCA0905 

44 

IF  (TAlll-ltll.KTll  1,5*46.46 

ARCA0906 

4b 

hB=TA<1> 

ARCA0907 

60  TO  501 

ARCA090B 

46 

1T  =  1 

ARCA0909 

47 

IF  <TT(1T,M)-TA(111  46,48*49 

ARCA0910 

46 

1TMT*1 

AHCAQ9U 

60  TO  47 

ARCA0912 

4V 

JTslT-1 

ARCA0913 

HCs(lA(I)-II(JI,KTl)/(TTllT.KT)-TT(JT,KTll 

AWCA0914 

hD=CNTtjT,KT|.MC«(CNT(lT.KT>-CNT(Jl.KT>> 

ARCA091S 

HAsCWBUI.HlCUI/HO 

ARCAU916 

MM  2  CNT2 1 JT.KT )  .  MC  •  (CNT2(1T*KT>  -  CNT2(JT»KT>  1 

ARCA0917 

MB  =  CRA ( J 1  ♦  PL6111  /  MM 

ARCAo9l« 

Mt=KT(JI*KH  •HCMHTUT.KTI-RTtJT.KT>  > 

ARCA0919 

mFsCPTIJT.KI) *HC* 1CPT ( IT.KT1-CHTC JT.KT) 1 

ARCA09J0 

CAP  1 1 1 aVOL ( 1 ) «HEoHF 

ARCA09J1 

35 

IF (MATLt 1! *1>  50,50.51 

ARCA09J2 

50 

0<JJ)=AC<I)/Md 

ARCA09J3 

M«U)=0.0 

ARCA0924 

60  TO  M 

APCA0925 

51 

N=KSM(l)-i 

ARCA  0920 

IF  1K6AP (111  5106.5106.5100 

ARCA0927 

5106 

IF  (M  5105,5105,5100 

ARCA092B 

5100 

fcM2=EPT (JT .KT ) .MC»  (EPT 11 T ,KT I -EPT 1 JT ,KT  1 ) 

ARCA0929 

mms=hm 

ARCA0930 

tPSVll)  =  LH2 

ARCA0931 

IF (N)  5105,5105,5102 

AHCA0932 

5102 

60  TO  (5103, 5104, 5103), N 

ARCA0933 

5103 

CON(lUMt) 

ARCA0934 

60  TO  5105 

AKCA0935 

5104 

CON(I)=MM 

ARCA0936 

5105 

CONTINUE 

ARCA0937 

M=l4BSlMATL(t.l)l 

ARCA093B 

IF1M1  53,52.53 

ARCA0939 

52 

Pri ( 1 1 =  2RO 

AMCA0940 

60  TO  61 

ARCA0941 

C - 

■IOHMemuY  eaCLUUEO  HULE5  MEME 

ARCA0942 

C  52 

aPITE  16,631 1 

AHCA0943 

431 

10HMAT  (10A.27MtMHONtOUS  NODAL  ARRANGEMENT) 

ARCA0944 

C 

IHSIHK 

AWCA094i> 

C 

60  To  408 

AMCA0946 

53 

IF  (TTMXIkU-TAU.iii  54,54.55 

AHCA0947 

54 

MQsTAll.ll 

ARCA094B 

oO  TO  500 

AHCA0949 

55 

IF  (TAlI.tl'TKl.KD)  5b.57.57 

AHCA09S0 

5b 

MQsTAU. 

A(fCA0951 

60  TO  501 

ARCA0952 

b7 

1  T=1 

AHCA0953 

55 

IF  (TnlT.Ml-IAll.U)  59.69.60 

AMCA0954 

*V 

1T=1T* i 

ARCA0955 

60  TO  6M 

ARCA0956 

60 

JT=1T-1 

APCA09S7 

MC=lTA(l.i)-fT(jT,ATll/(TT(lT,Kt)-TT(Jl,RT)| 

APCA096B 

HM  S  CNTj(jt,Kl>  *  ML  •  (CNTj(1I,KT>  -  CNI?(JT,M)  1 

ARCA0959 

Mq  -  MB  *  I'Ll)  <1*1 1  /  MM 

APCA0960 

HB(I)=AB(|»1)/mb 

AkCA0961 

IF (RGAP (111  61.61.6000 

ARCA0962 

6000 

eHl=tPT<JT»M>.HC«(tPTllT.KT»-tPT(jT.RT»> 

ARCA09sJ 

CALL  6AP( I »£Ml.tM2.HM,MMS.SlG> 

ARCA0964 

61 

IF  (JJ-N4I  63.62,63 

ARCA0965 

62 

NA(l)=/HO 

ARC A 0966 

60  TO  40 

AWCA0967 

63 

M=IABSIMAIL(U • 

ARCA0968 

IF  (kT) 

A4CAQ969 

64 

RAUlsJRu 

ARCA097U 

60  TO  40 

AHCA0971 

65 

IF  )TIMX(kI)-TA(l»I  66,66.67 

AHCA0972 

66 

MB=TalL) 

ARCA0973 

60  TO  600 

KRCA0974 

67 

1.  (TAILI-I T ( l.KT) 1  68.69,09 

ARCA0975 

66 

MB=IA(t.) 

AMCA0976 

60  TO  501 

AWCA0977 

*9 

1T=1 

APCA0978 

70 

IF  (Tl(ll.M)-TAlLll  7l.7l.7j 

ARCA0979 

’1 

1T=I T* 1 

APCA0980 

60  TO  70 

ARCA0981 

72 

JT=lT-l 

ARCA0982 

nC=lTA(C)-H(JT.KT>l/(TT(IT,KT)-TTUT.MH 

ARCA0963 

nO=CNt  ( JT.KI )  .hCMCNl  (iT.KT)-CNI  (JT  ,K) ) ) 

ARCA0984 

IF(HAIC(I>.1A0S(MATl(1I>>  7200.7202. 7200 

ARCAO90S 

7200 

IFIM.MAIltLM  7201.7202.7201 

ARCA0966 

7202 

mAsmA/(AO(1) *,0000001). PI  AIL)/ (MD® (AA (L) « .0000001) > 

ARCA0987 

kA(I)s1,/„A 

AMCA09BB 

00  TU  40 

APCAU989 

7201 

gONIInuE 

ARCA099U 

4-12 


MA=HA.PCA(cI/HO 

rfA(l>iAAUI/H4 

AO  continue 

39  CONTINUE 
oO  TO  <>21 
NE«  lOOIC 
4499  c«“Mm 

OO  5034  jj- l  »NN 

jo  5oao  i  h=i«hm 
1=1.1 
C=C*1 

11  iuaTCUII  50A2.3041.50A2 
Si'Al  HAll)=/fiO 
HH  (1 )  =  /RO 
oO  TO  5040 

5042  M=IabS(MA[L(  II I 

CAU  UOOMM.TAdl.na.KT>  cNni.KTI.CNT2a.KTt 

i  .ii2ai.Ai 

11  (lLAI  500* 5017.500 
301?  R8<tl=CRA(ll.PL6tll/MM 
N=K3..(1I-1 

IHNl  3021. 3021. 5010 
5i-j«  tP3vai=»?i4i 

1.0  IO  1501V.S020. 50141  .N 
3*19  CONI  1 1  =  T2(  II 
oO  IO  5021 
3020  CUM  11  =  42(21 
3.-21  CCNl  (NUt 

11  (JJ-NN)  3998. 4941, 4498 

4997  kA< i 1 =0. 

O0  TO  494. 

4998  RA  ( 1 1  =CRb (11  *PCC  ( 1 1  /3D 
449o  V,AP(  I)=VOl(11»«T(KI1«H1 

u  . i ; i-i >  3000. sooo.sooi 

5001  IF  (mATlU-DI  3000. 3000.5002 

3002  4b(l-n  =  Rd (1 1 / (Wd (1-H  ,PU0 (l  1  /HM> 

5000  IF  (MAIuai.Jl  300J. 3003.5004 

5003  U(JJI=AC(II/Rrt(Il 
wb(l 1=0.0 

IF(jJ-l)  8007. 3007. 3008 
3004  IF  (JJ-1)  3004,3004,3003 

5004  IF  (NN-ll  3010.3010.3007 
3010  xA(l)=0. 

oO  T.i  300> 

3003  If  (MAIL (|ll  3008.3007,3008 
3008  WA(c)=AA(ll/(4A(tl.PcAill/M0) 

U(1  TO  5007 

5008  RAICI  =PLA  (II  /  (OU*AAu  1  I  .  KA{U1/A0(LI 
xA(LI=l./OA(Ll 
3007  uONIIoUc 
5040  CONTINuF 
5;«39  C0N1INU1 
?21  cONTlNUt 

- uMmOuONAliTT  CORRtC  I IUN3 

IFIkiiHIGI  2210.2210.50b0 
3050  M— 0 

ilO  3031  J-l.NN 
oil  3031  1=1. MM 
M  =  M.  1 

x  I  =  MATC.Ml 
IF  (Ml  5052.3052.5033 
5033  48 (Ml  =  MR (Ml  o  3 INAC (Ml 
bob?  IFIJ-NN1  8034.5051,3051 
5054  mA(M)  =  KA(M!  4  SloAulMl 
5-51  CONTlNUt 
2210  CUNT  lout 

- - „£At  fLUA  COUP 

oSUm=2RO 

OWLS=7RO 

KK=MM»NN 

1=0 

J=1 

K=-l 

C=MM 

m=-mm 

U0  78  J.l=  j.NN 
OO  78  111=1, MM 
1  =  1. | 

J=J»1 
K=0»  1 
C=L»1 
M=M.  1 

IF  IwAlUail  114.115.114 
(15  l«(ll=7«.) 

uO  IO  78 
114  84=2-0 
m>=/HO 

If  (K>  fd, 18,77 
17  8A=HA«TA(KI44tf(Kl 
83=88.48(^1 


ARCA0491 

ARCA0992 

ARCA0993 

ARCA0994 

ARCA0995 

ARCA.1998 

ARC60997 

ARCA099B 

ARCA0999 

AMCAlOOO 

ARCA1001 

ARCA1002 

ARCA1003 

ARCA1004 

ARCA100S 

ARCA100& 

.CPI(l.MI.0.T2aiARCA10O7 
ARCA1008 
ARCA1009 
ARCA1010 
ARCA1011 
ARCA101H 
ARCA1013 
ARCA1014 
AKCA101S 
ARCA1016 
ARCA1017 
ARCA1018 
ARCA1019 
ARCA1020 
ARCA1021 
AKCA1022 
ARCA 1023 
AMCA1024 
ARCA1025 
ARCA 1026 
ARCA1027 
AHCA1028 
APCA1029 
ARCA1030 
ARCA1031 
APCA1032 
AKCA10J3 
ARCA 1034 
AKCA1UJ3 
ARCA1036 
ARCA1037 
ARCA | 038 
ARCA 1039 
ARCA1040 
ARCA1041 
ARCA1042 
ARCA104J 
ARCA 1044 
ARCA 1045 
ARCA1046 
ARCA1047 
APCA10C8 
ARCA1049 
ARCA 1050 
AHCA1051 
ARCA 1082 
MRCA10S3 
ARCA 1054 
ARCA105S 
APCA1058 
ARCA1T87 
ARC A 10. 6 
AWCA1059 
a«CA1060 
ARCA1061 
ARCA1062 
ARCA 1063 
ARCA1084 
ARCA 1065 
ARCA 1066 
ARCA1067 
ARCA1068 
ARCA 1069 
ARCA 1070 
ARCA1071 
ARCA1072 
ARCA1073 
ARCA 1074 
AWCA1075 
ARCA1076 
ARCA1077 
ARCA107B 
ARCA1079 
ARCA10B0 


I 


78  if  (J-KK)  79.79.80 
i  79  flA=r.A.TA(J)9RB(l> 
tidsH8»RB(II 

80  IF  (L-KK)  81.61.82 

81  MA=mA.TA((.  )*HA(I )  ‘ 

M8=H8*HA(I) 

82  IF  (Mu  89.89.83  : 

o3  hA=HA*TA(Ml*»A(M)  . 

HB=MB‘»A<m»  1  , 

84  IF  (CAP < I) »  85*86.88 
86  18 (1 1 aHA/HB 

GO  10  76  ‘ 

•85  OEN=Hb 

NskSHdl-i  ,  i 

1F(NI  97. 97.9800  1 

9800  KT=KTU(I) 

IF(KT)  986^*9802.9801 

9801  0£NSv=0EN 

CAUL  LOOMM‘20.IH.It1T(l.KTl  .CHI (1  .Ml  .NET  ( 1 ,KT>  .0.0.Y2.D2.2) 
ilENsDENSV 

i  HBW=Y2<1I  ' 

1F(HBWI  9818.9816.9803 
9810  KSh(l>=3*K8H(I> 

C0N(I)=Y2(2) 

oO  TO  97  '  i  ,  * 

9802  H8W=MC0NV 

9803  lF(EPSVd))  9804.9804.980S  .  ,  , 

9604  tBH=EPSW  '  ■ 

,  gO,TO  9804 

9805  tBW=EPSV(II  .  t 

SGEP=SIG«FbW 
5G4tMi4.0*8OtP 
9,(06  IFIEoh.hBw)  97,97.9807 
9807  GO  10  (9806. 9809.98101 «N 

9«0a  mG=PLC ( 1 1 / (CON ( 1 1 *AU (111  '  :  I 

AU=AO(I>  ,  .  1  ' 

oO  to  9811 

9609  HC=PlU(tfl/(CUN(I|*AB(l)l 
AU=A8(1> 

oO  TO  9811  !  ' 

9810  MC=HUA(1)/(C0MI1*AAU)1 

AOs A A ( 1 1  ' 

9611  CALL  oAKwc ( 1 1 

CALL  8SWIC«(6.KSSW»  ■  !  1 

GO  TO  (9oi£.98i J1 .ribw 
9818  IF(lTEM-loO)  9814. 9814.9813 

96,14  wRITe (KOuT, 9815*  lTEH.AQ,THES.l><L.HBW,S0EP.TR4,SG4EP.Ui<L,SlAb 
1 T  A I  U.DtN 

9815  FOMMAKi5,nei0.31 
9-11  CONI  lout 

MA=»A.l)»c  i 

UwL5=UWLS.gwl 

U,EN=[)tN.5Ta8, 

97  (BdlsHA-TMllono 

96  IF  (BLTmI  7b. 99. 76  1 

99  IF  (H Th ( 1 1  I  76,76,1001  • 

1001  IF (mA(l( 1 ) 1  76.76,100 

100  BC=El A*»CAP  Cl  1  /DEN 

IF  (hC-OTHl  101.76.76  1 

101  uTn=hp 
>(CR1  T=  111 

..CBIT^JJ  i  I  i 

7b  CONTINUE 
75  CONTINUE 
C 

c- - GO  TO  SURFACE  ENERGY  BALANCE  PACKAGE 

CALL  SURTH 

(  i  ! 

C— — "NEW  TEMPERATURES  LOOP 
107  K=0 

OO  120  J=  1  ,(,N  •  1 

00  121  1=1, MM 

'  K=B.],  , 

IF  (MATL(K))  121.121.136 
130  IF (CAP (K» )  122,121.123' 

122  wRI Tc ' b. 1?  7 1  K 

127  E0HMAT(//l'0‘.26BHEGAlIvE  CAPACITY  AT  NOOE  .13//) 

THf  =im 

00  To  468  1 

123  IT  (KSH(M  -D  124*125.1244 

125  WRITE (6. l?b>  K 

126  F0RMaT(//10A,.14HN0uAl  bLONOEP  AT  123.  MEATEO  NOOE  .13.3BH  HAS 
1H1AL  NUMHFH  GREATER  1  HAN  2ERO//I 

IMF=TH  1 

gO  TO  468 

1244  IF (Mail (K.  II )  1245.1243. 1247 

1245  wRITr (kOuT* 12461  K 

124b  ,ORHaT(//10a.27h6ACk  WALL  NOOE  NEAR  SURFACE//) 

IHf  =TH 

GO  TO  4b6  ' 


ARCA1081 
ARCA1082 
ARCA1083 
AMCA10K4 
ARCA108S 
APCA1086; 
ARCA1087 
ARCA 1088 
ARCA1089 
ARCA1090 
ARCA 1091 
ARCA 1092 
ARCA1093 
-  ARCA1094 
ARCA109S 
ARCA1096 
ARCA1097 
ARCA1098 
ARCA1099  | 
ARCA 1100 
ARCA1101 
ARCA1 102 
ARCA1163 
ARCA1104 
ARCA 11 OS  ' 
ARCA 11 06 
ARCA1107 
ARCA1108 
ARCA1109 
ARCA 1110 
ARCA  1111 
ARCA1 112 
ARCA 1113 
ARCA 1114 
ARCA1115 
AHCA1116 
ARCA1117 
ARCA111B 
ARCA 1119 
ARCA1120 
8RCA1121 
■  ARCA1122 
ARCA 11 23 
ARCA1124 
«HCAll2j> 
ARCA 1125 
ARCA1127 
ARCA1128 
ARCA 1129 
ARCA1130, 
A9CA1131 
ARCA1 I32 
ARCA 11 33 
ARCA 1 134 
ARCA 11 35 
ARCA1136, 
ARCA1137 
I  ARCA1138 
ARCA  11  39 
4RCA1140 
ARCA 1141 
i  ARCA1 142 
ARCA 1143 
ARCA 11 44 
ARCA 1145 
ARCA1146 
ARCA 1 1 4  7 
ARCA1148 
ARCA1149 
ARCA11S0 
ARCA1151 
ARCA1152 
ARCA 11 53 
:  ARCA1154 
ARCA 11 55 
ARCA11S6 
ARCAHS7 
ARCA 1148 
AKCA1159 
ARCA 11 60 
ARCA 1161 
MATEARCA1 lb2 
ARCA1163 
ARCA1164 
ARCA  11 65 
ARCA  11 66 
ARCA1167 
ARCA1 168 
ARCA 1169 
AHCAH70 


I 


1247  IF(KSh(iO-4)  1243, 124.7. 1248  ARCA1171 

1246  i'.SH(K)=K5w(M/3  ■  ;  .-.RCA1172 

OWLs<*Tu (K) ♦ (CpN(K)-IAlM )»C«P(KI /OTM  ARCAl 1 73 

UKLSsORLS.URL  :  ,  ARCA1174 

TB(K)=CON(M  i  '  i  ARCA1175 

00  TO  121*  ARC  A 1176 

124  IMM4TU1WH  1240, 1243. .1243  ARCA1177 

1240  lF(KPtSC-3»  1-2A3. 1241, 1243  *  ARCA1178 

•l?4l  |F (KDR0P( J< I  1242,1242,1243  ARCAl 179 

1?42  IB(M  =  (TB(A),Rb(K)4,(ItJ(K«l)-TA(A,D))4DTH/CAP(>l)*tAlKl  ARCA11B0 

00:10  121  ARCAl 181 

1243  HAsTy  C  K I  •  0 1  h/CAR  (K)»TA(K)  ,  ARCA11B2 

Ta<K>=)-A  ARCAl  183 

121  CONTINUE.  ARCA1184 

l'20  CONTINUE  !  ARCA116S 

onts3Unts»ubcs«oth  arcaubo 

BK=MM«NN  '  ARCAl 187 

46b  uO  467  is), hr  I  •  ARCA118B 

UNTI=UNTi.v.AP(l|«(TB<I)-TAlI)>  ARCA1189 

*67  TA(1)=TB(T)  !  ARCAl 190 

lFtIQTH  <.|  I.  OTHHI  .ANu.  <th  .NE.  PHT))  OThh  s  OTH  ARCA1191 

CALL  5S-<Trn(5»KSS#»  ARCA1192 

00  TO  (4671,4672) «ASSB  ARCAl 193 

4671  IF ( 1 TER-334  7)  4*72.4672,4673  ARCA1194 

4673  IF(lTtR-34o0i  468,469,4672  1  ARCAl 195 

4472  CONTINUE  ARCA1196 

CALL  *5SWTCr* ( 1 ,6SSW )  ARCAl  197 

00  To  (4o0*46'76>  ,KSSa  ARCAH9B 

4670  IMTm-ORI)  4674,466,406.  ARCA1199 

4674  IFUH-InFi  472.46B.468  "  ARCA1200 

C - h-ouTRoT  ocOLX  ARCA  12i)  1 

„60  CEC=ONTS/QNU  ARCA1202 

CALL  LCOUNU17«NN.LCT.NRO;HecOHU(3S>>  ARCA1203 

SRITE (6,3364)  TH  :  AHCA1204 

1164  ,;ORHAI  (//|A,iO(lM«)  1F7.2.8H  SECONDS, 63(1HS)//52X,13K»»«OEnERAL»«»)ARCA12o5 

RR1TE  (6.1J4I  ARCA1206 

•KITE (6. 136)  tn.ONTS.aNTl,CEC«HCRlT.NC«IT,lTER,UTHS,DTMH  ARCA1207 

riRllf  16.3361  .  ARCA1208 

136  f OKMnI (//44A,2oR«»«hlATED  SURFACF.««»///40A  ,40H - HISCtLLANEOUSARCA12o9 

1  Surface  - //2X«26HR0«  col  0R7n  SURF  SURF.bX.xHH  ED0E,aRCA1210 

26X.6HM  RAi  l,  )A.40Hb-RR1HE  Mass  COEFF  CM/C*')  PRESSUR).4X,6mkAaPCA1211 

3JlUS'.10A.|'iZ/l6A,S7Hl|tR  IEmP(R)  (BTC/LS)  (BTU/lB)  TOT  (ARCA1212 
4LB/H2-SfCI  ,14X.SM(ATH)  ,6X,4H(lN)  )  ;  ARCA1213 

no  ,  ARCA1214 

llO  4i,4  J=1,NN  '  RKLA1216 

uO  449  I  - 1 ,mm  !  ARCA 12 1 6 

■  6SR.J  ,  ARCA 1217 

IF  (KSn  (i\  >  -i  i  944,950,949  ARCA121 B 

<59  6P--CMU0T  (  !)/„(  J)  I  ARCA1Z19 

6RsO(J)/o/(J)  i  ARCA1220 

l«=SR(J)  1  ARCA 122, 

2=52 (J)  -  ARCA1222 

lTS=iTSR'l>  ARCA1223 

sRlH  (o.  n'OI  ,l,J.Il:(J),ITS.TS(J),MtUO{J)  ,HrL  (J),  BP, 0(3),  bR,  PR  (3)  .ARC  A  12^4 
1-.2  ARCA1225 

J3/0  , ORMcl (2x,i3<lx,l3, JA.ll«2A,l5,2A,F7.t,2(2X,F9.2>,2X,F7.4,3X,  ARCA1226 

1,9.5,3a,, 7,5. 3I2X.E10. 3) )  I  ARCA1227 

444  CONTINUE-  ,  aRCA  1 22B 

CALL  lCOOnT  (  B*.NN,LC1  ,NPG, RECORD  I  351 )  \  '  ARCA1229 

sRllt  (6,3300)  ARCA1230 

3360  F0RmAi(//4Ux,39h - - - SURFACE  RATE  UuAnUTIES - //IX.  ARCA1231 

1  J1m-L0CaUuN-  —RECESSION  RATES  —  .6X.14M— HASS  R^TES  — ,20X.  ARCA1232 

2B9H--SURF  AOE  ,ENER0T,  FI.UX  RATES” /l  BX,  JOB (MlLS/5tC) ,  13X,  ARCA) 233 

3l2H(t  «/F  T ”5tC) ,29X, 1 3n(6TU/FT2"SEC) )  ASCA1234 

««1TF (6.3361 1  1  ARCA123S 

•  3361  fORMiT (60x,4mC0NVECTEO.4X,8MCMLMIC«L44X,9MRADIAT 10N.3X.9HRAD1AT 10NARCA1236 

I,2X,'10„COnuulT1ON/2A,56MRO«i  COL  CENTER  LINE  NORHAL  HOOT  TOTARCA1237 
2al  MUU (  r(.MF:M,6X,2nlN,6x.2lH0ENERAl  ION  ABSORBED, SX.7HE.4ITTED,  ARCA1236 
36X.4.  a»Ay*)  AHCA1239 

MO  ARCA1240 


uO  49*10  J=1"N>I 
>  JO  4510  1=1, MM  • 

6=R.|  j  I 

1F(K<U1(K)-1)  9510,9611,9510 
<411  -A=O5UIB(J)*12000. 

,iil=U5uIbN(J)»12000, 

sRITF (6.3302)  1 ,J,MA,HB,CMDOT(JI .CMOOT (J) ,QCNV(J) , 
1UCNM13) tOPAB(J) ,ORAO(J) ,ONP(K)  , 

33o2  ,  OHMAT (2x,l3*lx.I3<3x,2(F10,6*lxl,2X,?(El0,3,2X) ) 

4510  CONTINUE. 

CALL  cCOUNl (B.NN.LCT.NP6,H£C0RU(J5) )  , 

«RlTt' F6, 33031 

(363  , ORMa I ( //  1BA « 44H - SURFACE  TIME  IN (EORATED  0UANTIT1ES* 

1  113X,40*i— JLCtS^ION  TOTALS"  —HASS  ABLATION  TOTALS—. 
2l5X.30„— '•.JRF4CE  EHEhOT  FLUX  TOTALS— /20X,6H(HlLS) ,  17X, 
inn  (LR/COL ) ,  33A.9H  (bTu/COL) ) 
hR 1 T*  (6, 3361) 

*  =  9  1  • 

>0  9512  jsl.vi 
,0  4512  ! rl ,MM 


ARCA 1241 
ARCA124 2 
ARCA1243 
AKCA1244 
ARCAl 245 
ARCAl 246 
AHCA1Z47 
ARCA124B 
ARCA 1249 
ARCA1250 
ARCA1251 
ARCA1252 
//  ARCA1253 
ARCA12S4 
ARCA1255 
ARCA 1256 
ARCA 1257 
ARCA1258 
ARCA 1259 
ARCA 1260 


R=K»1  ARCA1261 

IFIKSHlKl-l)  9512. 9513,9512  ARCA1262 

9913  HA=OSTT(J)«12000.  ARCA1263 

HH=HA  ARCA1264 

uRIVE 16,3386)  1.J.MA,H8.CMT<J).CMTIJ).UCNVT<J>.  ARCA1265 

lOCnHT(J),QHABl  (J >  .URaOTIJ)  .OCONDT  (J1  ARCA1266 

336b  FORMAH2X,l3.1X.lJ.JX,2(Fl0.4.1X)  ,2X,7lEl0.3.2X>>  ARCA12b7 

4912  CONTINUE  ARCA126B 

C - EXTRA  DIAGNOSTIC  OUIPU1  ARCA1269 

(.ALL  5SWTCH  (4.KSSW)  ARCM270 

oO  To  19496.9497) »KSSU  A.XA12M 

4496  CALL  LC0UnI<5.2»NN»LCT.NPG.HEC0RD(35)>  ARCA1272 

4493  f ORMAT <//?*( 10HEXTNA  UUMP/2X ,S6ri2 . J.U.VOL.RA.RB.CAP.AA.AB.AC.AD.HLARCA1273 

1U .PLUS .EUR (PL A ,PLC .PLD// )  ARCA 1 274 

K=0  ARCA1275 

OO  4490  Jcl.NN  ARCA1276 

DO  4490  Id. MM  AMCA1277 

K=K.|  ARCA 1278 

IFIKahIKI-D  9-.90.4441. 9490  ARCA1279 

4491  xRITf;I6.94V2I  l .  J.UI  J)  .VOL IK)  .HAtiO  ,RB  IK)  .CAP(K)  ..'A':'./ .  ABIK)  .  ACtK)  ARCA1280 
1.AOIK) .Pi_r(K)  .PLHS(J) .EMNIJ) iPLA(k) .PLC(K) .PLD(K)  ARCA12B1 

9492  FOHMAT(2X,l3.2X.I3.10E11.3/10X.SE11.3)  ARCA12B2 

9490  CONTINUE  ARCA 1283 

CALL  LCOUNl I3.NN.LCT .NPG.REC0R0I3S) )  ARCA1284 

«RITE(6.4S03)  ARCA128S 

9503  FORMAT  t//2X,40Hl.J,O5Dl .05DTB.OS.OST.DSTT.MATL.KSH.KSUR/)  ARCA12B6 

R=0  ARCA1287 

»0  4500  J=1.NN  AHCA128& 

DO  9500  1:1. MM  ARCA1289 

k=K»1  ARCA 1290 

IFIKShIK)-!)  9500. 9501. 4500  ARCA1291 

9901  xPITE  (6,4<;u2)  1.J.D5DT  J)  .OSDTal  J>  >DS  (J)  ,OST  t  J)  .DSIT  ( J>  .MATL  (K)  .  ARCA1292 
lKSHtK) .KSURIJ)  ARCA1293 

9502  FORMAT (2x.2l4.5El2. J.3I4I  ARCA1294 

9500  CONTINUE  ARCA1295 

CALL  LCOUn I ( 4.LCT .NPo.NECORDI 3b) )  ARCAl29b 

•RITc (6,9494)  PRT.THl.lMF.DLTH.ETA.FV.f T.PIB.ZRO.KQOP.MM.NN.KK.  ARCA1297 
INMT.nnT  ,  ARCA129B 

4494  F  ORMAT (//3A ,5bHPRT .Ini .TriF .DLTri.LTA.FV .F T .PlB.ZHO.KQ0P. MM, NN.KK .NMAHCA1244 


11. HHT/2A.9t 11,3.12.214,313//) 

AhCA l 300 

97 

continue 

AHCA1301 

■OPTIONAL  PUNCriEO  output 

AHCA1302 

IF IKSTRP- 1 )  849.842.0421 

ARCA 1303 

8421 

DO  8422  1=1.8 

ARCA 1304 

IF  lABStTri.TP, Ml)  I-. 000001)  842.842.8422 

hkCAUOS 

8422 

CONTINUE 

ARCA1308 

GO  TO  849 

A'-CA1307 

842 

K=0 

ARCA 1308 

t,S=0 

ARCA1309 

call  LCOUN  1  (2.LCT.NP.,.HtC0KU(3s) ) 

ARCA1310 

riPlTE  (8.8423)  T Fi 

4RCAI3U 

8423  FORMAT)/8nA,^bHMUNLMED  OUTPUT  PriOOUCED  AT.FlQ.S.Bri  SECONDS) 

ARCA 1312 

uO  o**0  JM’UN 

ARCA1313 

DO  840  1=1. MM 

ARCA1314 

A=K.l 

ARCA1315 

lFIMATLIK))  8420. 840.841 

ARCA 1 316 

8420 

NS=NS»1 

ARCA1317 

841 

NSsNS* 1 

ARCA 131b 

A40 

CONTINUE 

AHCA1319 

*s0 

AHCA1320 

N=0 

ARCA1J21 

LL=0 

ARCA1J22 

LPcMM.) 

ARCA 1323 

UO  b43 

ARCA 1 324 

UO  «44  1=1 *MM 

ARCA1325 

APCA1326 

LL=LL ♦ 1 

ARCA1327 

LRaLR.  | 

ARCA 1328 

IFIMAlL(K))  845.844,845 

ARCA1329 

445 

N=N*J 

ARCA 1330 

IF(KCENT)  8450.8450,8451 

ARCA 1331 

8450 

CONTINUE 

ARCAjJ32 

Z=ICZILL).lZ(LH))/2.C 

ARCA1333 

H=ICR(LL).LH(LR))/2.0 

ARCA 1334 

oO  TO  8452 

ARCA 1335 

8451 

IF (MAIL  IK) 1  8454. 844, 84S3 

ARCA1336 

0453 

Z=(CZ  ILL)  *LZ(LR)'»CZ  ILL*  i:»CZCLM*  1)1/4. 

ARCA1337 

Hx  ICR  ILL )  «CH  (LH)  .CH  ILL.  1 )  »CH  ILH.  1) )  /4. 

ARCA133B 

Gi>  TO  8452 

ARCA 1339 

1  =  HCZILL)*CaILk))/2..sZ|J))/2. 

ARCA134O 

R=UCh(LL)*LHILR))/2.*SHIJ)>/2. 

AKCA1341 

continue 

«RCA 1342 

punch  840,  H,Z.TAIK).T,J,MATL(K).Th»REC0R0I35).HEC0RD(36).N,NS 

ARCA1343 

P4b  FORMAT  (3Fl0.3.8HlNINUtGH.I3,lri/,I3.3HHAT.I2.F7.2.2HS  .2A6.1X.I3.  ARCA1344 


12HUF ,13) 
lFIMATLIK))  847.844.044 
M47  :.=f|.) 

CL=LLM 

LR=LR.1 

HAT=PLB<K)/PLri5l J) 


ARCA1345 
ARCA) 346 
»RCA1347 
ARCA 1343 
ARCA1349 
ARCA 1350 


*1-16 


K»SR(J) 

ZiS2(JI 
MOUTs-MATL  (Kl 

HUNCH  H4u,  R.Z.TSIJ)  ,J.M0UT,TH,HEC0R0(3S)  ,RECoRO(36)  .N.NS 
BAS  FORMAT  (3F10.3,8hIN1NDEGR,3X,1H/,  I3.3HMAT ,  I2.F7 .2.2HS  .2A6.lx.13, 
12H0F.I3) 

844  CONTINUE 

BA3  continue 
HA9  continue 

- - -JEHPEHATURt  PR1NI  OUT 

CAUL  LCOUNI <-A.LcI*NPU«REC0ft0<3S) ) 

«RlTt(6.3loS> 

3365  F0RMAT(//<,9X.I9H««Mn-UEPTH  OATAw.w/) 

CALC  LCOUNl ( 3.LCT.NPU, RECORD! 3SI > 

*H|Tp(6, 24101 

2A10  E0HMA1(/S(4X.21mR0w  CUL  TEMPERATURE)/) 

INICK=) 

JNlCK=5 

JNICK3H1N0 ( JNlCK.NN) 

2A2  UO  2A1  L31»MM 
J»0 

K3(lNJCK-l)*MM»L-MM 
1)0  2a7  IM*lt 
?a7  jF0RM(1  )  3K OHM(  1 ) 

UO  240  I3INlCK.JNlCr. 

KsK.MM 

J=JM 

MPR(J)=L 

NNPR|J)=1 

IHHR(j)=Ta(M 

IF  (MaTL»K) . NE.O. AND. TMPM(J) .01.0.)  GO  TO  240 

jF0HM(2»J)31SK1P 

IMPR (J)=BlANK 

240  CONTINUE 
NPGIaNPU 

CALL  LCOUNl (l»LCT.NPo.HLC0R0(3S) ) 

IF  (NHG.E0.NPG1)  UO  TO  2u3 
CALL  LCOUNl  (3.LCT  ,NFu .RECORD (35)  ) 

WRITM6.2410) 

243  wRI Tf (6.JF0KM)  (MPN(n).NNPU(B)*TMPR(K).K=1.J) 

24 1  CONTINUE 
nPoi=NPO 

call  LCOUNl ( 1 .LCT ,NHu, RECORD ( 35* ) 

IF  (NFUl .Eu.nPG)  GO  10  244 
CALL  LCOUNl  (2«LCT.NHu.hEC0NCm3'j)  ) 

-RITE (6.2410) 

UO  To  24S 
?44  «RITE(6.301) 

2aS  IF  (JNlCK.bU.NN)  GO  10  2*6 
INlCK=JNlCK‘l 
JNICKsMINo  (lNlCK.4 ,NN) 

UO  TO  242 
Pub  CONTINUE 
C 

1.64  IFITli-THF 
470  CONTINUE 
IF  (kASE) 

4/1  STOP 

472  IF(Ih-PRT)  30.4721.4721 

4721  IF (Th-TPTcU(I)*. 000001)  473.474,474 

473  FRI=AMlNl(PRT«TMP.TFTCO(l>) 
uTHMslOO. 

GO  TO  30 

474  IF (PRTI ( 2) )  476, 476.47S 

476  CALL  LCOUNl (S> LCT, NPU.HECORUI 35) ) 

WRITE  (Kuul.4/7) 

477  )OHHAT(//10X,62HHAVE  ENCOUNTERED  A  ZtHO  OUTPUT  INTERVAL.  AM  UUITI 
unu  this  jou//) 

UO  TO  470 

475  IHP=PRTl (?) 

UO  47S  Isl.7 
IPTCG(I)=THTCG(I,U 

470  PRTI(l)=Pftll(l.l> 
oO  TO  473 

500  WRITE  (6.<JP2)  III.JJ 

WRITE  (6.9231  K1 

IHF=TH 

UO  TO  46H 

501  WRITE (6.B22)  III.JJ 

wrITF  (6.924)  KT 

IHf-TH 

UO  TO  469 

505  wRIIF(6.S)4)  TA( 1) . Th 
IhF=TH 
uO  TO  469 
t  ID 


)  472*470,470 
471.471, 225 


AHCA13SI 
ARCA13S2 
ARCA1353 
ARCA1354 
ARCA13S5 
ARCAI 356 
ARCA1357 
AMCA13S6 
ARCAl 359 
ARCA1360 
ARCAl 361 
ARCA1362 
ARCA1363 
ARCA 1364 
ARCAl  365 
ARCAl 366 
ARCA1367 
ARCAl 366 
ARC A 1369 
ARCA1370 
ARCA1371 
ARCA 1372 
ARCA1373 
ARCA1374 
ARCA1375 
ARCA  1376 
ARCA1377 
ARCA1378 
ARCA1379 
ARCA1380 
ARCAl 3B1 
ARCA13B2 
ARCA1383 
ARCA 1 3B4 
ARCA 13h5 
ARCA13B6 
ARCA1387 
ARCA138B 
ARCA 1389 
ARCAl 390 
ARCA1391 
ARCA 1392 
ARCA -.393 
ARCA1J94 
ARCA1395 
ARCA 1396 
ARCA1397 
ARCA 1398 
ARCAl 399 
ARCA 1400 
ARCA 140 1 
ARCA1402 
ARCA 1403 
ARCA 1404 
ARCA140S 
ARCA1406 
ARCA1407 
ARCA14AB 
ARCA 1409 
AR  C  A 1 4 1 0 
ARCA1411 
ARCA1412 
ARCA1413 
ARCA 1414 
ARCA1415 
ARCA1416 
IARCA1417 
ARCA141B 
AHCA1419 
ARCA1420 
AMCA1421 
ARCA1422 
ARCA1423 
ARCA 1424 
ARCA 1425 
ARCA1426 
ARCA 1427 
ARCA 1428 
AHC&1429 
ARCA 14 30 
aRCA 1431 
ARC« 1432 
ARCA 1433 
ARCA 1434 
ARCA | 4 35 
ARCA 1430 
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SUBROUTINE  dAKWL(I) 

INCLUOE  DIMS, LIST 

COMMON  «SU«  ( 0  >  »TS  (40) .DSOT  (40)  tDSDTb  (40)  .OS (40)  .051  (40)  .0(40) 
COMMON  PLqS(40>.0STT  (<,()), OCONDT  (4Q )  .OCNV  (40)  .OCNVT  (40)  »OCMH  (40 )  • 


BAKW0001 

BAKW0002 

OAKW0003 

BAKW0004 

BAkWOOOS 

UAKWOOOO 


luCHMTUo)  ,URAB(40*  .URAdT(40)  .ONAO(40>  ,ORAOT(40)  ,0S0T8N(40>  .DSN(40)t)AKW0007 
COMMON  CM0Ot(40),HEDO(40).CMI(40).HWL(40).G(40).G2(40).PR(40)  dAKWOOOB 
COMMON  ii(40) *SZ (40) *  SR (40) *EHN(40) . IT SR (40)  BAKW0009 
COMMON  I  ARCS (40) .KUROP (40 )  BAKW0010 
COMMON  TT  ( ib.6>  .RT(  IS.  6)  .CPT  ( 1S.6>  *CNT{  lS.6>  .CNT2(  IS. 6)  .  dAKWOO 11 
1EPT(1S»6),ITm)C(6)  BAKW0012 
COMMON  ThKJs.IO)  .Chr(JS,10).HtI(35.l0).tQR(3S»10)  .TPM35.10).  dAKWOOlJ 
1TBRP (35<lo>  dAKW0914 
COMMON  PLcOMo(36) .TMPR(S) ,MPR(S> .NNPR(S)  BAKW0015 
COMMON/ LK/KOUT . IEX.UEN.VR, IH1 (40) . ILO(40) . JR (40)  BAKW0016 
COMMON/BACK/EBW. HBW.SGEP.SG4EP. IR4.EPSWiHC0NV.ThES.HC.AU. OWL* IWU.  dAKW0017 


ISTAB.Tmj 

4000  FORMAT  (2l<5.oEl2.3> 

C - dACK-WALL  OPTION  1  OPERATIONS  FOR  NODE  I 

FACT=VF1(|)«SGEP*A0 
OC=HBw»AO 
L  =  1 

IF  (FACT)  400*400.100 

c - SIMPLE  no  radiation  CASE 

400  •)xL=(TP£S-rA(I))/(HC.1.0/UC) 

STAb=A0*(HOH»0.S  ♦  S04LP*TA(1)»®3) 

RETURN 

c - — OENERAl  case 

100  TWL=TA ( 1 > 

101  uR=F4CT*(TRL.THES)*(IWL#,>2»TR2) 

US=UP«UC 

KS“HC*1.0/US 

lwLN=rA(I)-(TA(l)-THCS)/RS*HC 
CALL  bSwTcn(b.KSSW) 

H‘1  T01102.103)  .KSSw 

102  CALL  lC0UNT(1,LCT.nPo.kEC0R1)<3S>> 

xRITE (KOUT.VOOO)  I .L .F«CT .TWL. IWLN.UC.UR.US.RS. TRES.HC 

103  If  (AhS(IwLN-TWL)-UO)  l0b.10b.104 

104  Iwl=TmLN 

«.=l*i 

lF(L-sl)  101.100.lub 

105  UWL=  AO<M(lK£S-TWL)».Rd*  *  SGI  °»  ( TH4-I  WL*»4)  ) 
STAB=AO»(Hd»«0.S  »  Su4tP*TA(l>'«3) 

return 

LUO 


dAKWOOlS 
dAKWOO 1 9 
BAKW0020 
BAKW0021 
BAKW0022 
BAKW0023 
BAKW0024 
BAKW002S 
BAKW0026 
BAKW0027 
BAKW0028 
UAKW0029 
BAKW0030 
OAKW0031 
BAKW0032 
UAKW0033 
BAKW0034 
dAKWOO JS 
UAKW003S 
BAKW0037 
dAKW003B 
dAKW003V 
dAKW0040 
UAKW0041 
dAKWC042 
UAKW0043 
BAKW0044 
BAKHUU4S 
BAKW0046 


SUbHOUTINE  LOOK(11*XL*A.A.6*C*£.Y.O*ION) 
COMMON/LK/KOUT.IEX.OEN.VR.iHI  (40)  ,ILO<40>  .IRI40) 
DIMENSION  AID  tY ID  *011) 

DIMENSION  AID. BID. C(l).EIl) 

1H=IH1(U) 

IL=lL0(II) 

IEA=0  I 

IF(X(IH)-X(1L>>  30.30.E9 

30  IEX=i 

IF  (XL-Xlln) I  3.2.31  i 

31  IF  (XL-X(IL))  6*5*4 
29  If  (Xl-X(1h))1.2.3 

1  IK<XL-X<ILM4.S.6 
f  I=lK(lI) 

I=M1N0(I  .I'll 
I=MA*0(1«TL> 

IS=  1 
ir=i 
uO  TO  B 
11  1=1*1 

IS=0  ; 

0  IF(ItX)  2S.26.38 
28  IFIXL-X(l))  7.10.9 
38  lFIXL-X(I))  9.10.7 
7  1=1-1 
IT=0 

IF ( IS) 10.10.6 
9  lFIITH0.10.il 

3  IFX=3  1 

2  1=1 H— 1 

uO  I 0  1 u  J 

4  IEX=2  I 

5  1  =  IL 

10  OEN=X(l»l)-XII) 

IN ( 1 1 )  =  1  « 

VR=XL— X ( 1 ) 

it  i  ion)  n.n.i4  ■ 

14  DO  TO  (21.42.23.24) .ION 
24  Y (4) =t ( I ) 

0(4)=t(I»))-E(l)  ‘ 

23  Y(J)=C(I) 

0(3) =L ( 1» 1 ) -C( I) 

22  Y (2) =6 ( I ) 

0(21=6(1  Mi-Ill) 

21  Y ( 1 ) =A ( 1 ) 

0(1 ) *A ( I *1 )-A( I) 

DO  1?  J=1 • ION 

20  0 ( J) -0 ( J) /DtN  ; 

12  T (J)sY(J) . D ( J) «VH 

13  VR=VR/UEn 

CAuL  bS»TCti(2« JJ1 
DO  TO  (200*201 ) .33 

200  If  (ION-2)  202.202.204 

204  IK ( 1 1  - 1  *  201.202.201 

202  «9ITf  (K0UI.203)  11.1L. Im.Xl. I*( 1 1) .VH.uEN. IEX.IDn 

203  tOHMAT  <  3(2X. 12) .2A.E10.3.2X, I2.F 10.4.2X.E 10.3.2I2X. 12) 1 
IF  (lJN-1)  2025*1025.1025 

1025  WRITf  (K0UT.2J5)  (Y(M  .0(K)  ,K=J.luN) 

205  FORMAT (4<2A.f 10.3> > 

2025  CONTINUE 

201  CONTINUE  : 

rtfc  TORN 

END 


lookoo’oi 
LOOK0002 
LOOK0003 
, LOOK0004 
'LOOK 0005 
LOOK0006 
LOOK0007 
LOOKOOOB 
I  LOOK0009 
LOOKOOIO 
LOOKOOD 
LOOK0O12 
L00K0013 
LOOK0014 
LOOK0Q15 
LOOK0016 
LOOKOOD 
LOOKOO'lB 
LOOK0019 
LOOK0020 
LOOK0021 
LOOKO022 
L00K0023 
L00K0024 
L00K002S 
LOOK0026 
LOOK0027 
,  LOOK002U 
1  LO0K0029 

LOOK0030 
LOOK0031 
LOOK0032 
'  i  LOQK0033 
LO0K0034 
LOOK0035 ; 
LOOK0036 
LOOK0037 
LOOK0038 
LOOK0039 
LOOK0040 
LOOK0041 
1  LOOK0042 
LOOK0043 
LOOKOOA-. 
L00KUU46 
LOUKOOad 
lOOKOO**7 
L00K00-.8 
LOOK0049 
’  L00K0050 

LOOKOOSl 
LOOK0052 
L00K0053 
LOOK0054 
L00K0055 
LOOK0056 
LO0K0057 
L00K0058 
LO0K0059 
LOOK0060 
•  LOOKOOftl 
LOOKOOA2 
LOOK0063 


I 


bUeKOUl INE  UOLt  (m.xam«pmm.nomx*a«p*Eh> 

ulMtOblON  AAMU)  ><111  .Hill  .EMtl)  .PRM(l)  •UPOIH(l) 

OIF  =X(N-.ma)-X<  ll 
|6=1 

2  JO  t>00  >=1*N 
AA=XArtl j> 

64  W>=1 
11=1 

bl  IF 1 A'' IF  )  ’2.O0WI 
71  |F(xt-X(l'>l  62*63*64 
12  IFIxUsI-xmI  62*63*64 
62  If <16-1)6/1, 671. 6B 
66  1S=1 6- 1 
ll=2 

oO  lo  -61*061  *10 
47 2  16=NoHX 
671  1=16 

0  • 

oP01=tM< l i 
■jvl  1 6  o7 
6J  HH=P(1S1 

uP01=t»*II'  • 

,,,>  10  601 
64  | A  c 1 6  *  1 

1*  (  lb-M  jHxl  6V*04  *0/2 
04  -10=2 

oj  10  161*03) *11 

66  16=16-1 
66  1=16 

j=<  I  <*•<  I*|l-PCI))/tXII*l)-X(  IMI-EH1I)  >/<X<l*l>-XUI  1 
;)r|(lt«ll.ll-t»(l)l/(AII*ll-A(ll)l-i.*0)/IX(l*l)-Xll)l 
•l=(F«(AA-Xli*|l>*b)<*<XA-X(l)> 

»W[)lrl6«M.tA(i  I  «F*IXA-X(1I  )  •  C  Xrt-X  C I  )  )  ) 
b/  2M=lH*|MII)|<>(XA>Xtln<P(I) 

60 1  v0OllM.lt 
**AMl  J)  =  Pn 

600  vONUN’Jt 
60  iONFINoE 
4  Kfc 1UPN 
ton 


ugleoooi 

OGLE0002 
UGLE0003 
OGLE0004 
OGUE0005 
OGLEOOOb 
UGLE0007 
OGLEOOOB 
OGLE0004 
0GLE0010 
OGLE00U 
OGLE0012 
OOLEOOl 3 
OGLEOQ14 
UGLEOOlB 
OGLE 00 16 
OGLE0017 
OGLEOOIB 
OGLE0019 
OGLE  0020 
OGLE0021 
UGLE0022 
OGLE0023 
OGLE0024 
OGLEOD2b 
OGLE0026 
OGLE0027 
0GLE002B 
OGLE0029 
UGLE0030 
OGLE0031 
OGLE0032 
UGLE0033 
OGLE0034 
UGLE003B 
OGLE  0036 
OGLE0037 
OGLE003B 
OGLE0039 
OGLE0040 


SUBROUTINE  URDF.KO  (NX.Al.ll) 

URDE0001 

ulHENSlON  A X ( 1 > .11(11 

URDE0002 

uiMENSION  :.S(20> 

ORDE0003 

NM=IABS(NX) 

OROEOOQ4 

t-S  1 1 1  =  0 

OROEOOOS 

(  5(2)  =  1 

OR0E0006 

L5(3)=2 

OROE0007 

(.1  =  3 

UROECOOB 

1K1)  =  1 

QRDECn)09 

00  1  N=2,NM 

OROEOOIO 

11(N)=N 

OROEOOU 

L=LS(Ll> 

OR’)EOOl2 

lA=LI 

UR JE0013 

J=N 

0RDE0014 

A1C=X1(J) 

OROEOOlb 

11C=11(J) 

URUE0016 

J=J-L 

ORDE0017 

IF ( J )  31 . 31 *34 

OROEOOlB 

34  Ll=LIM 

ORUE0019 

lS(LI>=L*L 

UROE0020 

oO  TO  29 

OROE0021 

33  LA=LA-1 

URDE00?2 

L=LS(LA) 

OR0E0023 

1F(L)  3*3.41 

OROE0024 

41  J=J-L 

OR0E0025 

32  IK ( J)  31.31.29 

ORDE0026 

J1  lA=LA-1 

UROE0027 

l=LS(L».) 

OHDE002B 

J=J*t 

ORDE0029 

If  (L)  4. -.,32 

ORUE0030 

30  uA=LA-1 

ORDE0031 

L=LS  (LA ) 

OR0E0032 

IF (L» 

UR0E0033 

42  JrJ.L 

OR0E0034 

24  IF (NX)  229.129,129 

ORUE0035 

22 9  lF(Mt-xi(j) )  30.53.J3 

uRl)E003b 

129  lFiXl(J)-xlC)  30,53.33 

UROE0037 

53  J=1 

uRl)E00  3b 

oO  10  3 

OR0Eft039 

4  J=J.i 

UHOE0040 

3  Wall— i 

UWUE0041 

MM=M 

OHOEOU42 

uO  2  K= J.RM 

ORDE0043 

Xl(M.l)=Xl(M) 

OR0E0044 

1 1  (H.  1 )  =  1  1  IR) 

UKUEUU45 

£  M=M— 1 

OR0E0046 

ll(J)=tlC 

ORDE0047 

1  Al(J)=XlC 

URDEOO&B 

KtfURN 

OR0E0049 

tNO 

ORDEOOSO 

sUoROUflNE  5E0UA (N.L.A.B.C.O) 

5EOU0001 

UIMENSION  A C 1 )  ,0(11  .C(l)  .0(11  ,(.(1) 

SEOU0002 

(5=7 

5EOU0003 

UO  30  1 1  =  1  mi 

5EUU0004 

1=11 

SEUU0005 

J=L(D 

bEOUOOOb 

1.111:1 

5EOU0007 

IF(J-l)  22.30.22 

SEOUOOOB 

22 

IF ( ISj  25,23,25 

5EOU0009 

23 

•>4=4(1) 

5EQU0C10 

5d=H( 1) 

SEoUOOll 

jC=C( 1) 

5EOU0012 

Bl)=0(  1) 

5E0U0013 

IS=I 

5EUU0014 

2>C> 

A ( 1 ) =A (  J) 

5EO'J0015 

rt(I)=*)(J) 

SEUU0016 

C(I)=(,(J) 

5EOU0017 

*)(  1 )  =U  ( J) 

5EUU0018 

1=J 

SEGUU019 

ui)  lo  21 

5ECU0020 

S'* 

IF ( IS- J)  JO.20, ib 

5EUU0021 

15=0 

3EDU0022 

A(  1)=>jA 

5EOU0023 

n(ll-j'i 

5EOU0024 

Utl)=3C 

5EUU0025 

.)(l)=5ti 

SEOUOO=6 

IV 

continue 

5EOU0027 

w> (URN 

5E0U002B 

1  >«> 

5I.OU0029 
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SUBROUTINE  SlOPLIN.N.X.Y.EMS.EHN) 

C 

INCLUDE  UIMS.LIST 
C 

C - DIMENSIONED  AS  SURFACE  NODES  (NUMBER  OF  COLUMNS) 

COMMON  KSUimO)  *TS(40>  »DSDT  (40)  .0SDIB(4Q)  .OS (40)  ,DST  (40)  ,U(40> 
COHMON  PcnS (40) 

DIMENSION  A(l) «Y(1) *EM5(1) «EMN(1) 

IF  IN- 1 )  lo0.100.101 

100  J=M 

RAT=l.-OST(l)/PLBSU) 

CRL=CH( J) ♦KAT*(CR(J* 1)-CR( J) ) 

czl=cz  ( j)  »rat«  (cz  (  j»  n  -cz  ( J) ) 

L3J«M«1 

CRR=CH (L)  «HA  f«  (CR(L*  l)-CR(L) ) 

CZR=CZ(U.KATMCZ(L*1)-CZ1L>> 

UZ=CZR-CZl 
OR*CRR-CKL 
IF  (1*7)  1S1.IS0.151 

1 50  Sl=l.fl5 
uO  TO  152 

151  IF (UR)  1S1.1S4.153 
1S4  sl=l.£-15 

oO  TO  152 
153  S1=UR/0Z 

152  S2="1./S1 
LMS(1)=S1 
tMN( 1) =S2 
RETURN 

101  S1=0. 

S2=0. 

NS=0 

0XS=X(2)-X(1) 

H=N-1 

UO  200  1=1. X 
UX=X(1»1)-A(1> 

UY=Y ( I* 1 ) -Y ( I  > 

IF(OX)  30Z.JOO.302 

300  1F(0Y)  301. 320.301 

120  NS=NS«l 
oO  To  200 

301  s2=2.E«lS/AbS(0Y)»UY 
GO  TO  303 

J02  S2=0Y/0X 

IF (UX#OXS)  J04.J03.JU3 
304  1F(S1«S2)  J07.306.30T 
106  EmS(1)s1.qC«15 
GO  To  JOS 

30/  EMS(I)=z.»Sl»S2/(Sl.Sz) 

GO  TO  30S 

303  tMS(I)=(Sl*S2)/2. 

105  Uxs=Oa 

IF (Ns)  200*200.321 

121  LL=I-NS 
LU=1-1 
NS=0 

OO  323  J=LL.LU 
323  ) MS( J) =EMS( 1 ) 

200  Sl=S2 

EmS( l )=2.«EMS( 1) 

EmS(N>=S2 
UO  J10  1=1. N 
IF (EmS (I ) )  J11.J12.311 
312  tMN(I)=i.ot»lS 
GO  TO  310 

311  LMN(I)=-l./LMS(l) 

Jlu  CONTINUE 
RETURN 

S00  eORMAT (215) 

ENU 


SLOPOOOl 
SLOP0002 
SLOP0003 
SLOP0004 
SLOP0005 
SLOP0006 
slopooot 
SLOP0008 
SLQP0009 
SLOPOOIO 
SL0P001 1 
SLOP0012 
SLOPO013 
SL0P0014 
SL0P0015 
SL0P0016 
SLOP0017 
SLOPOOIB 
SL0P0019 
SLOP0020 
SLOP0021 
SL0P0022 
SL0P0023 
SLOP0024 
SL0P002S 
SL0P0026 

5LOP0027 
SL0P0028 
SL0P0029 
SLOP0030 
SL0P0031 
SL0P0032 
SL0P0033 
SLOP003** 
SCOP003S 
SL0P0036 
SL0P0037 
SL0P0038 
SLOP0039 
SLOP0040 
SL0P0041 
SLOP0042 
SLOP0043 
SLOPOOA4 
SLOP004S 
SLOP0046 
SL0P0047 
SLCP0048 
SLOP0049 
SLOPOO50 
SLOP0051 
SL0P0052 
SLOP0053 
SLOP  0054 
SLOPOOSS 
SL0P0056 
SL0P0057 
SLOP0058 
SLOP 0059 
SL0P0060 
SLOP0061 
SLOP0062 
SL0P0063 
SLOP0064 
5LOP006S 
SLOP0066 
SLOP0067 
SI.OP0068 
SLOP0069 
SLOP0070 


4'23 


r-  n 


j 


bUnKOUTINE  bLOPOINUMA.A.P.tM) 
bLUPf  EVALUATION  ROUTINE. 

'U>€nSIOn  X(l).  P(l),  Em(1).  Ill) 

30  EM(2>  =  (  P(2)  -  Pill  )  /  (  x(2)  -  XII)  ) 
tH(l!  =  Eu(2i 

1111:0.0 

uC  =  EH(l) 

liO  36  1  -  1  ♦  NUHX 

IPO  =  I  ♦  i 

IP!  =  I  .  2 

IT  =  IPO  -  noma 

IP  (IT)  33  .  31  ,  32 

31  ub=UC 

oO  10  41 

32  <>0  10  AO 

33  aOT  =  A { I )  -  XIIPOi 
ATI  s  X(1po)  -  X(1PI) 

Alu  =  X(lPl)  -  X(I) 

AA  =  PHI  /  (  XOT  •  Alu  ) 

AOTI=AOT“xtI 
37  AH=PtI*l! -Auir 

-C  =  PIIPTI  /  (  All  *  Alu  I 

AAA  =  AA  tt  AIT 

ABb  =  AH  o  A 10 

ACC  s  At  «  auT 

*/  A  =  uC 

■)"  =  LM(h 

UC  =  tH  (IPO) 

CM (IPO)  =  A3  ®  (XOT  -  All)  ♦  ACC  -  AAA 

CM(IPT)  s  rtC  •  (ATT  -  ATO)  ♦  AAA  -  ABB 

lH(I)=  a«  «  (ATO  -  XOT)  ♦  Adb  -  ACC 

34  ut"  -  CM  ( I  ) 

If (1-2)  36.41, 3S 
3b  tM'.l)  =  (  OE  •  OA  )  22, 

4 1  t  M  <  I )  =  (FM(l)  »  Ob  )  /2. 

40  XO=A(I)-A(I-l) 

3(1  CONTINUE 
k6  Tu«n 

CNO 


blOPOOOl  S 

btoPoooa 

SLOP0003 

bLOP0004  f 

SLOPOOOS 

SCOP0006 

bLOP0007 

SLOPQ00B 

bCOP0009 

bcoPooio 

bLOPOOU 

bCOP0012 

bCOPOOl3 

bLOPOO 14 

bLOPOOli 

bLOPOOlb 

bLOP0017 

bLOPOO 18 

bCOPOOl9 

bLOP0O20 

SLOP0021 

bLOP0022 

bLOP0023 

btOP0O24 

SCOP0025 

bLOPoo26 

bCOP0027 

SLOP0026 

bLOP0029 

bLOP003O 

bLOP0031 

bLCP0032 

bL0P003J 

M.OP0034 

btOP003b  > 

bL0P0036 
bLOP0037 
SL0P0038 
bLOP0039 
bLOP0040 


SOUNOUU'iF  sURFB 
INcLUOF  utrtb.LlST 


surfoooi 

surfooo2 

SUHFOOOJ 

SURF0004 

SURFOOOS 

SURF0006 


- uImEnsIONEu  AS  SURFACE  NOOES  (NUMbtR  OF  CULUMNS)  SURFOOOS 

COMMON  ASUK(40).TS(40).OsUT(40>«OSOTd(40>.OS(40).UST(40)»U(40)  SURF0006 
COMMON  PL  o(40)  .OSTTUO)  .OCONOT  (401  ,OCN\M40>  .OCNVT  (AO)  »QChM{40>  t  SURFOOO? 

luLHMf  (M0>  ,uKA3(40l  .OKAbl  (401  ,0HAD(40>  .QRAUT (40)  »USi)T8N(40)  .DSN  (AO)  SUHF0008 
LOHMON  CMouT  (401 «HtUG<40) ,CmT(40).H*L<40)  .0 (40 )  .GZ (40 )  .PR(40 )  SURF0009 

. OHMON  11(40). s/(40l .SK(40> .EMM(40>  SURFoolO 

COMMON  HS«(40>  SURF0011 

cOMMON  1  ApcS (40 )  .KOROP  (40)  SURF0012 

ilMtNblON  t«b(40) .BPbV(40)  bURF00l3 

- ulMENblONEi/  AS  PROPERTY  TABLES.  ENTRIES  A  MATERIALb  SURFQ014 

COMMON  TT i 13,6) .NT ( iS.b) ,CPT( lb, 6) ,CnT ( lb, 6) ,CNT2( 15, b) ,  SURFOOlb 

ltPl(lS,b),ir-'A(b)  bURFOOlb 

- oIMtNslONro  -S  .'*•*»  TABLES,  ENTRIES  A  TABLE  NO  SURF0017 

COMMON  Tmt (JS.10>  «CnT  (Jb.lO)  .NET  (3b,  10)  .TOR  (3b.  iO)  «TP1  (3b,  10) »  SURFoOlS 

ll-KP(3S.lo<  ;URF00l9 

- M1SCELI  ANroUS  OUANlllItS  SURF0020 

common  RtfoMu«3o) .TMMR(S) ,HPW(b> ,NNPR(b)  SURFOOpi 

COMMON  vltLM(5l)  .tlTER(bl)  .IAd.RO  bURFO0?2 

COMMON  /a !N,cMh-CM,Cn  SURF0023 

COMMON  lM,uln,PMliThl,lnF,0LTM,tTA,llS,OT*iS  SURF0024 

COMMON  Fv.f I .PIH.2K0.AUUP.MM.NN.NMT .Nhl  .UNTS.UbUM.bIG  SURF002S 

COMMON  AKEsc , KSLOP . kCENT  SUWF002b 

cINENsIOn  12  ( B )  SURF  0027 

cOMMON/ENuuY/ IPH  (SI  .NMo(b)  »TMG(d,5)  ,NL0(b,5)  .NHKB.S) ,  SURF0028 

IamI (8,b) , T I stN(2b,5) ,TmSEN(2S,5) .TCPSEN ( 2b,S) •  SURF0029 

2lLMc(2S,B.b) . 1SEn(5) , ns(2b,8,b) , TCMEMt 2b»6,b) ,NPR  SURF0030 

c0MM0N/LA/a0U I,1EA,uEN,VR,1H1 (40 ) « 1L0 (40) ,IR(40)  SURF0031 

uATa  blANk/ om  /  SUHF0032 

- kUJUsTMENT  uF  UmE  STEP  ACCORDING  TO  LIMITATIONS  OK  TIME  IABLES  SURF0033 

uI„S=oTh  SUHF0034 

Im=1h»uIm  SURF0035 

10  2*0  J- 1  * ",N  bURF003b 

AiKSi*«(J,  SURF0037 

Kl=Ato(Ai  SURF003B 

IF  (AT)  2-*0,2  ,0,24b  SURF0039 

*4**  Nl  I  =*  I  •  2o  SURF0040 

l=»R(Nl(l  SURF0041 

/-I  If  (1iiI(I.1.Mi-Tm» O.OOOOD  294.240,290  SURF0042 

•* 4  it  (Im-I*<IIwT1U  292.240.290  SURF 0043 

2  ,2  I  *  1  ♦  |  SURF0044 

ir ( TMl ( I . 1 .<■ I l. fMl ( I ,Al ) )  291.24J.291  SUMF004b 

,.4j  ImaTm-oIm  sURF004b 

ImDsMmT  ( 1  , All-. 01  SURF0G47 

„1N=AHAM(  .01.1  Ml  (I.aT)-MI  BURFOOaB 

ImMm.'Tm  SURF0049 

oO  T(,  241  SURF COSO 

240  IRlt.lli  I  SURF OObl 

-----utt  INt  AcImkAmlc  TIMc  sTtP  SURF0052 

a-0  SURF0053 

Im=Tm-  I>.  SURF0054 

-0  2  1  ,t  .  SURF005S 

u$Uli  (l  sOsol'tlH  SURF0OS6 

a  "A  su-<  ( I  •  SURF  00b  7 

jTmsaMI  *(  l(o(ri,MLBb(II/ilO,*OsOI  (I)  ,.000001)  ,  (PLob(  1 )  2S00..PLB  (A)  l/SURFOOSt, 


1  (Obl-T  ( I )  ..000001  ) ) 

If  (uin-l.nt-12)  10b.10b.10/ 

10b  "t l it  (htlOai 

10s  FORMAT  (  10X,  1  ,MTOO  SMALL  UME  SItP/2) 

KrIT*  (b>  l->4)  1 

104  F ORMA 1 ( IO/.lmCuLUMN. 1 J/21 
ImF  Mm 
kF TURN 

10/  continue 
2  CONTINUE 
rt-.  =  TFt*UTri 

1F'(HA-PKT|  10S.l0b.104 
|»4  l)TM=RKT-D* 

ImsPrT 
■jO  To  “ 

10s  Th=Tm«"TM 

4  continue 

c- — -let  slopes  now  pending  rearrangement  of  ihis  section 

00  10  (29(i4.290Sl  .aSLOR 
2S04  CALL  sLOPL (MM.NN.S2.SR.tMS.EMN) 

0.)  10  2903 
2 ,4b  CONTINUE 

lflNN-1)  ?40l, 290l« 2402 
2<-01  (MN(1)  =  1.F.J0 
ui)  (0  2903 

2**02  CALL  SLOPOINtl.S/.SR.LMNI 
„0  2900  J-l.NN 

2--0O  eMNIJ)=-1,/  (tMN!J)»l.t-30> 

2  •  )  U)NT  InUE 

t - ma i m  column  loop  for  surface  operations 

c 

,0  /  l  =  i,N>, 


SORFOOS9 
SURFOOfeO 
SURF  OObl 
SURF  0062 
SURF0063 
SURF  00b4 
SURF  006b 
SURF  006b 
SURF  00*>7 
SURFOObB 
SURF  0069 
SURF0070 
SURF0071 
SURF0072 
SURF0073 
SUWF0074 
SURF  007b 
SURF  0076 
SURF  0077 
SURF007B 
SURF0079 
SURF00B0 
SURF00R1 
SURF  0002 
SURF00B3 
SURF0084 
SURFoOBb 
SURF  0086 
SURF0087 
SURFOOBB 
SURFOOA9 
SURF  0090 


4-25 


c 

C - INTERPOLATE  IN  TIME  TABLES  ANO  IDENTIFY  OPTION 

C 

K=KSUR<1) 

M=KTU(K) 

IF(KT)  20.i0.21 

20  HA=TBtK)<>0irt/CAP(KI  .TA(K) 

TB<K)-MA 

tS<l)=Trt<K> 

USl)TP(I)=fl. 
uSUTflNI I)=0. 

UNP(k)=0. 
oO  10  7 

21  CONTINUE 
ITLsJO 
ITS=1 

MT=IABS(Ma1L(K)  I 

NTT=kI»20 

lrtl  <  t-y I  =1H1  (Ml) 

J=1N(NTT) 

UEN=(Th-Th1 ( J.KT) )/(ThT( J»i,KT)-THT ( J.KT) ) 
1F(ThTIJ»1.M)-ThT(J.KT))  20aO.20AO.2VS 
20AO  JEN=0. 

?9S  Ch=ChT (J.Kf ) .DtN0(CMT (J«1.KT)-CHT(J.KT)> 
URA=TUrt(J«KI).OEN“(TuH(JM,KT)»rQR(J.KT) ) 

«E=NfcT ( J.K () »OEN»  WET  <  J. 1 *KT 1 -RET (J.KT) ) 
dRP=TBRPtj.Kn*0EN<MT8MP<  J*1  .KT1 -TBRP1  J.kTM 
PRESaTPI (J.0T).UEN«(TP1 (J.I.KT)-TPI(J.KT)) 
eact=oth/cap(k) 

KQOPa 1 

IF(Cm)  207. 207.2070 
29/  r\OOP=2 
ChaO.O 

IF (Hf *2.0)  208.298,200 
298  KO0P=3 
rtl  =  0. 

uO  TO  2900 

C-* — OPTION  2  PREPARATIONS 
200  IStI»=ME 
sT=nL 

bA=(iRA/12oOO. 

OS  (I )  =SA-r>5tT  ( 1 )  -PLUS ( l )  .PLB  (ft)  *0ST  ( I )  .PLD  (K) 
USUTM<I)=l)B(I)/OTH 

HA=VCOS<ft,l.MM,CR.C2.S2.SR,fcMN,PLB.PLBS.OST> 
lMHA-.li  £001.2901.2902 
2o01  nRITE (6,2993)  I.KOOP 

2903  f OHHfll (//10A.2BMBAO  SURFACE  SHAPE  AT  COLUMN  .12.58H, 

1  TO  MAIN  PROGRAM  «11m  Im)  =  1H.  OPTION  IS  . I2> 1H.//I 
bRITE(KOUT.290A)  ( J,tMb( J) .EmN(J) .  J= 1 • NN > 

2990  rORMAT  (lox.lbRl  .LMbdl  ,tMN  ( I  ( //  ( 10*.  I2.2E  12.3) ) 

IriF=Iri 

RETURN 

2902  CONTINUE 

1>SN(I)=DS(1I»HA 

UL9TBN (I ) -UbUTB (I ) «HA 

CMO=DSOTd<ll«Ro 

UCHEm=0 

uCONv=0. 

UPAsf), 

KAD=0. 

CO=0, 

Crt2='i. 

MR=C. 

MA  =  0. 
rtt-0  , 

ITS=f 
00  TO  2hb 

C - OPTION  3  C«LCULATIONb 

2990  lAdC=9000o. 
oSDTR ( 11=0* 

1>S(11=0. 

usotbniiiau. 

I)SN(I)=0. 


SURF0091 
SURF0092 
bURF0093 
5URF0090 
bURF  0095 
SURFooOb 
SURF0097 
bURF0098 
SURF0099 
bURFOlOO 
SURFOlOl 
bURF0102 
SURF0103 
SURF0104 
SURF  0105 
SURF0106 
5URF0107 
SURF0108 
SURF0109 
SURF0110 
SURFO 111 
SURF0U2 
SURF0113 
bURFoilO 
SURF0115 
SURFO 116 
SURFO 117 
SURFO 1 18 
SURF0119 
SURF0120 
SURF0121 
SURFO 122 
SURF0123 
SURF 01 ?o 
SURFO 125 
SURF01H6 
SURF  0127 
SURF0128 
SURF0129 
SURF0130 
SURF0131 
SURF  0132 
SURF  01 33 
SURFO 130 
SU»roi35 
SURroi36 
AH  RETURNINGSUHF 0137 
SURFO 1JB 
SURFO 139 
SURFoioO 
SUMFOlol 
SURF0102 
SURF01O3 
SURFOIOO 
SURF  01A5 
SURF 01 06 
SURFOIO/ 
SURFOloB 
SURFOIOO 
SURFO ISO 
SURF  0151 
SURF01S2 
SURFO 153 
SURFO ISO 
SURF01SS 
SURF01S6 
SURFO 157 
SUPF0158 
SURF  n  ISO 
SU1F0160 
SURF0161 
SURFO 162 
SURF  0163 


C«0=C. 

cM=j. 

CHE-0. 

fiW-O. 

OO  TO  <2903.2006. 200o» .KHESr 

2095  A=u<I)/<Ac<ft)<Ml..FAcT*U<I))) 

U=-A" <F  ACT-* Ti)  <81 , TA < A ) ) 

vO  10  2007 

2096  A=UU)/AC<N)»<1.*FACT«RB<K-1»)/<1.»FACT«(U<1)»RB<K-1M) 
a=-Ao<TA<K).FACT'>TB<l\)/<l.»FACfRB<K-l>>) 

299/  CONTINUE 
tRFA=-> 

UCMEu=0. 

UCONv=0. 
vF=vf  3<K| 
oO  TO  200 

C- - -OPTION  1  PREPARATIONS 


aURF  01 60 
SURE  0 1 6S 
SURFO 166 
SURF0167 
SURF 01 68 
SURroi69 
SURF  0170 
SURF  0171 
SURF  >172 
SURFO 173 
SURF  01 70 
SURF  0175 
SURFO 176 
SURFO 177 
SURF 0178 
SURF  01/0 

SURFoi«0 


2070  bF=CMDOT ( I ) /CH 
VF=VF1(K) 

CHZ=CH 

PHl=2.«HRP»Bf 
IFIPhI-.O))  2071.2071.2072 

2071  Ch=ChM1.-.0*PhI) 

GO  TO  20  73 

2072  Cr(=CH/(EXPlPHl)-l.)*PHl 

2073  Cm=Ch»Cmm 

GO  TO  (2076, 2077, 2077), KRESC 

2076  A=UU)/(AC<M»U.«FACT«UU)>> 

U*-AMFACT*T8(K).TA(K)> 

2077  A=U( I)/AC (M » (1.. FACTORS (K-l ))/ (1.. FACT* (U(l).Rb(K-l) I ) 
B=-A»(TA(K)«FACT*TmM/(l.*FACl»RB(K-l))) 

2078  CONTINUE 
CMOL=HPSV(l> 

IAB=IABLS<1> 

EHFx=CH*H|r-d 

1PR=KX£(K) 

IL0(12>=1 

IHl (12)=NmG(IPR) 

UPG=CH 

CALL  LOOK ( 12.8PG, THG(l.lPR). 0,0, 0,0,72(1), 72(2), 1) 

1MG=IR(12) 

VRM=VR 

ILO(14)=NlO(IMG,IPH) 

1HI (14) =Nh1 1  IMG, IPR) 

ILO(lo)=NLOdMG»ldPR> 

IHI(10)=NhI(IMG.1,IPR) 

1 l=lLO( 14) 

12=lLO(lS) 

1FIIN1 (14)-11>  240, 240, 203 

203  IF ( IK1 ( 15)”12)  240.240.204 

204  TABCdTSdl.IMG, IPR)  ,VRM» (TTSd2,  IHo.l,  1PR)-TTS(I1 »  IMG.  IPR) ) 
IF(TSII)-TABC)  240.240.20S 

c - ABLATING  SUHFAcE 

205  IF(IAU)  200.206,207 

206  CMUL=TLMC( 11 , IMG, IPR) -VHH* (TLHC( II , IMG. IPR) -TLHC( 12. IMG. 1 . IPR) ) 
CMD=EXP(CmUL)«CM 

IA8  =  ) 

207  CALL  LOOK ( 14.CMBL, TLMC ( 1 , IMG, IPR ) ,T TS( 1, IMG, IPR) , 
lTCHEMd.lMG.lPR)  ,0,0. 72(1), 72(3), 2) 

IRA=(R(1m) 

CALL  LOOK ( 15.CMDL.TLMC (1,1MG«1«1PR),TT0(1,IMG*1,1PR), 
HLMEMd.IMGM.lPK>  .0.0.72(51  ,72(71,2) 

IRBMKdS) 

DO  208  J=1 ,4 

208  72(J|=72(J) ,VRM»(72(J.4)-72(J)) 

6T=7  2 ( 1 ) 

CALL  LOOK! 19,ST,TI (l»MT) »£PT  ( l.HT)  ,0,0,0.EMIV,1)M1V»  1 ) 

TSSO=ST«ST 

RAU=sIG»Em1v*TSSO»TSOQ»VF 
ERR=CH*72(2) ,EMIV»OMa-MAO-A*ST»EHFA 

c - convection  correction  to  be  aooeo 

0ERR=CH®7?(4),((qRA-RAu/EM1V)«0MIV-4,/ST*RAD-A)»72(3) 
lRRCzERR/OLRR 


VITER (ITS) "CMOL 
ElTER (ITS) =£RR 
CMOL=CMDL.tKRC 
IF  (IL0(14)-IRA) 
210  IFdLO(lS)-lRrt) 


210,2)1,211 
212,211,211 

212  CMM1=AMAX1 (TLMCI IRA. IMG, IPR) .TLMC (IRA- l . IMG, IPR) , 

1 TLMC (IRR. IMg.1, IPR) .TlMC( IRH-1 , IMG. 1, IPR) )/2. 

CM0L=AMAX1 (CMOL.CMMI ) 

211  1F(1hK14)-IRA-D  220,220,2)3 

213  IF(IHIdS)-IR-i-l)  220,220,214 

214  CMMAsAHIN) ( IlMC ()RA. 1 , IMG. IPR) ‘TLMCI IRA. 2. IMG, IPR) . 

1 TLMC ( 1RB. l. IMG*1, IPR )«ILHC(1R8.2. IMG* 1, IPR) )/2. 

CM0L=AMIN) (CMOL.CMMA) 

IF(ITS-Ul-1»  220,210.216 
2  IS  EHRSsERR 
CMDL-CMMA 
GO  TO  222 

216  IF (LRR.ERP6)  216.222.217 
2)7  CMOLsCMMA 
GO  TO  222 
218  1 TL=55 

1F(£RRC)  2)0,222,222 
2)0  CMl'L=CMMI 
i,0  TO  222 

220  IKIiS-lTt)  222*221,222 

221  CMI)L=Am!N1  (TLMCdl.lMG.IPR)  ,TLMC(  12. IMG*  1 , IPR) ) 

?22  CMU=EXP(CMUL)*CM 

IF ( I TS-SO .  223.223.224 

223  ITS=ITS» 1 

IFIABsIERR)-!,)  262,262,  207 

224  uRIiT (6,220) (VITER(J). El TEX(j) , J=1,SI) 

225  FORMAT (10X.37MSURFACE  ENtHGV  BALANCE  ITERATION  OTOP//12X,26HVARlABOURFo268 

1LE  AND  ERROR  HIST0R7//(I5X,10EI0.3) )  OURf 0269 

2264  WRITE (6,226)  TH,0TH,VHM,ERFX,ME,ST, TaBC.EMIV.OMIV.  OURF0270 


OURF0181 
SURF 0182 
SURF0183 
SURrolHG 

SUPF018S 
OURF 0186 
SURF01R7 
SURF01B6 
SURF 0189 
SURF0190 
OURF019I 
SURF0192 
SURF0193 
SURF0194 
SUPF019S 
SURF01R6 
SURF  0197 
SURF019B 
OUPF0199 
SURF0200 
SURF  0201 
SURF  0202 
SURF0203 
SURF0204 
SURF0205 
SURF0206 
SURF0207 
SURF0208 
SURF0209 
SURF0210 
SURF  02 11 
SURF0212 
SURF0213 
SURF0214 
SURF0215 
OURF0216 
SURF021 1 
SURF0218 
SURF  0219 
OURF 0220 
OURF  0221 
SURF0222 
SURF0223 
0URF0224 
OURF  0220 
OURF0226 
0URF0227 
SURF  0228 
SURF0229 
0URF0230 
OURF  0231 
SURF0232 
SURF0233 
SURF0234 
SURF023O 
OURF 0236 
SURF0237 
OURF0238 
SURF0239 
OURF  0240 
SUPF02-1 
0URF0242 
SURF0243 
OURF  0244 
SURF 0245 
OURF  0246 
OURF0247 
SURF0248 
SURF  0249 
SURF0250 
SURF0251 
0URF0252 
SURF0203 
SURF0254 
SURF  0255 
OURF  0256 
OURF  0257 
OURF  0258 
OURF  0259 
SURF  0260 
SURF  0261 
OURF  0262 
OURF 0263 
•URF0264 
OURF  0265 
SURF  0266 
OURF0267 
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I 


1HA0.<)RA.A,o.CH.CM.CMH.Y2(I>.Y2(2).  SURF0271 

2Y2(3)  .Y2<4)  .ST.TSU)  ,IaB,I,K.U.I2,IL0(14>,  '  SURF0272 

31LO (’IS)  .1H1  (14)  .IHK1SI  .1RA.IRBjITS.ITL.1MG.IPR  SUHF0273 

?2b  FOHMAT<//10X.105HTt1,OTK.VHH,ERFx,HE.ST.TABC,EMIV,OMIY.RAD  ,QRA, A,b,SURF0274 
1CM,CM.CMH,Y2(1)  , Y2I2)  ,Y2(3).Y2<4),ST,1S(1>  . I AB« I ,K* 1 1 . 12/S6H  ILOUSURF027S 
24>.lLO(l&|.lHm4>»lhl(lS>,IRA,lR6*lIS.lTL.IMG.IPR//10X9E12.3/10X,SURF0276 
39£12.3/10x.4E12. 3. 1514/1  SURF0277 

hRITE  (6*22o2)  VF ,CNZ .BKP.PHI .FACT ,U (I)  ,AC(K>  ,VRP,EMN(l I  .PtBS(  1 1  .  SURF0278 
IPLB  IK) .CAP(K) «VOL(K) »IB<K) I  SURF02  79 

2?h2  FORMAT  (//10X.76HVF  *CH2»BRPtPHl  jFACT ,U( l )  .AC(K)  .VHp.EMNII )  ,PLBS  ( I)  .SURFQ2B0 
1PLG(K) .CAp(K).vOLtK).TblK)//lOX.9E12.3/lOX.SE12.3) ,  ‘  SURF02B1 

L=K-HM  ’  SURF  02B2 

IH=K*MM  •  SURF  0283 

«RITfi(0.2?t>3)  MAT  L  (L )  .MATE  (K)  .MATLIIH  I  ,MATL  (K-l  I  .RA(K)  ,HB(K),,RA(SUI<F02e4 
lL)  .RH(K-l)  .UST(I) JOSfT(l)  .AA(K)  >AB<K)  .AO(K)  «AU(U  .AAUH1  I  ,PLA(K>  .bURF02t)5 
2PLOCK)  .PLClK)  «PLC(U  .PlBCK-1)  .PLAdM  I  bURF0286 

2263  FORMAT  (//lOX.lOIHMATL(L)  .MATL(K>  .MATL(K»,MM)  .MATL(K-l)  *RA(KI  ,RB(K)  ,SVRFo2B7 
1RA<L),RB(k-1)<DSTII),OSTT<1> .AA(K).ABtK) .AD(KI.AO(LI/10X,bbHAA(K*MbURFo288 
2MI .PLA(K),PLO(K) .PLC(K) tPLCIL)  «PLB<K-1) .PLA(K.MM)//10X.4l5.7EI2.3/SUNF02B9 


3J0X.7E12.3/30X.3£'12.3//I 
IF(lfB)  2?o6, 2266.2267 

2266  RETURN 

2267  CONTINUE 
L  =  0 

,1RU9)  =  I  i 

'  IC=lLO ( 14) 

1M=IHI ( 141 

1)0  22 7  J=IL.1M 

L=LM 


SU8F0290 
SURE0291 
SURF0292 
SURF0293 
bURF  0294 
SURF  029b 
SURF0296 
SURF  0297 
SURF0298 
SURF0299 


CALL  LOOMIS. TLMCU.IHu. IPR). JLMC11.IM&. I, IPR), TTSd.IMG.l. IPR).  1  SURF0300 


1 ICHEmC 1 • Imo* 1 • IPR) .0.0.Y2 ( II  ,Y2(3I  .2)  ‘ 

Y2U)=TTS<J,1MG.IPK)*VRH>.;y2U>-TTS(.J.1MG.IPR>I 
Y2(2)=TCrt£M(J,lMG»lPR> »VRM® ( Y2 (2! -TCHEHl J* IMG. IPRI I 
aT  =  Y? ( 1 1 
ISbG=bT«ST 

CALL  LOOK ( 19 .ST . TT (1 .Ml) »EPT < 1 .MT1  .O.O.O.EMIV.UMIV. 1 1 

KAO=SlG«EMlW«TSSO«TSbO»VF 

lRH=CH»Y2(2I .EMIV«ORA-HAO-AOST»ERFX 

literili=lrr  ■■ 

227  V1TER(L)=TLMC(J.1MG.IPK> 
krUE  (6,276)  IMG 


SURF030I 
SURF0302 
SURF0303 
SURF0304 
SURF030S 
SURF0306 
SURF  0307 
SURF0306 
SURF0309 
SURF  0310 
SUPF  031 1  | 


22b  FORMAT  (//10A.92HCONPLETE  SURFACE  I  ABLE  FOR  ANALYSIS,  COMPUTED  USlNSURFn3l2 
lu  CURRENI  values  OF  LH*i)RA*mE*A,0»  AND  9RM//12X,6mIKG  s  \IZ//)  SUMF0313 
1  «RITE(b.2?4)  WITER(J)  .EITERr(JI  .J=l.LI  SURF0314 

72-1  FORMAT  (20X.6MLN  HRlMt.I0X.20rtENERGY  BALANCE  ERROR/4  lx.  bUftru3lS 

U4M<BTU/SoFT-StCI//119X.tl0.3»l4X.E10.3))  SURF3316 

L=0  )  SURF0317 

IL=lLO(lb)  SURF0316 

1H=1H((1S)  SURF  0319 

UO  230  jAlL.lr)  ,  bORF0320* 

L=L»|  *  SURF  0321 

CALL  LOOK (14, Tlmc (J.IMG*1, IPR) * Tlmc ( i , IMG* IPR) ,  ■  SURF0322 

lTTSU.  IMG.iPR)  .TChEM(  1 .  IMGi  IPR)  .0.0.Y2  ( I)  ,Y2(3)  .2)  SURF0323 

1  »2U)=Y2(().(TTS(J«IMG*1MPR)-Y2(1))*VRM  SURF0324 

Y2 (2) = Y2 ( 7). (TCrtEM(J, IMG. 1. IPR) -Y2( 2) I ®VRM  SURF0325 

ST=Y2(1)  1  SuwF 0326  i 

TSSO=bT"ST  i  SURF  0327 

KAO=SlG«EMlV®TbSO,TbbO®VF  '  SURF0328 

CALL  LOOK (l J.ST.TTII.Ml ) ,EPT ( L>Mf 1 .0 .0'O.EMI V.DMIV, 1 1  SURF0329 

tRH=CM»Y2(2) ‘EMlV"UMA-RAO-A«ST*£RFX  SUHF0330 

EITEr(L)=ERK  ’  '  SURF  0331 

230  VITER(L)=TlMC(J, IMG. IPR)  bURFc332 

tMG=IMG»l  SUW0333 

«RITF (6.231)  IMG  SURF0334 

231  FORMAT(/l?x,6HlMG  =  .12//)  I  SURF  033b 

«RITE(6.27V)  (vITER(J).EITER(J),U=1,L)  bURF033o 

imf  =tm  surf  0337 

RETURN  '  '  SURF0338 

..  .'ON-ADLATING  bVMFACt  1  SURF0339 

C  SURF0340 

?40  I AB-0  SURF 0341 

CM0=(1.  bURF‘0342 

ir<KOUP-J)  2400.2491.2491  SURF 0343 

2400  1LOI 16)  =  1  .  SURF  0344 

IHl (16) =KhI (IMG. IPR)  60RF034S 

1L0()/)  =  1  bURF  0346 

Irtl (171 -KhI (IMG. I. IPR)  SURF0347 

bT  =  ISlil  1  SURF  0340 

?49  CALL  LOOK(16.ST.T)Sl|. IMG.IPR). TCMEMd. IMG, IPR), 0*0.0.  SURF’0349 

IY2U)  .Y2(p)  .  1 )  1  SUKF03S0 

CALL  LOOK(i7.ST.TTS(l.lMG»l»lPR),TCHEH(l.lMG.l«IPR>*  SURFO  )5l 

10,0.0*Y2(31»Y2(4).1)  SURF03S2 

l>»  241  J=l»2  SURF 0353 

241  r2( J) =Y2(  ,.VHM»(Y2(J»2)-Y21J>>  ,  SURF0354 

2491  CONTINUE  ,  '  SURF  03SS 

ISSl,-:ST«ST  SURF  0356: 

2401  CALL  LOOK  (W.ST.TTIl.MT)  «£PT  ( l.HT )  .O.OtO.EMI  V.DMIV.  1)  SURF03b7 

RADASlG®EMlV«ISbQ0Ta30®VF  SURF0358 

LRR=CM'Y2(  l),F.MlV»OHA-RAU-A«bT‘ERFX  SURF 03S9 

tiERR=LM*Y 2(21.  (OWA-hAo/EMIV)  •DMIV-4./ST«RAD-A  bURF  0360 


;| -'■A' ^ 2  „ 


1*  ir  . .Ill, 


'tHRCstRR/OtHR  SURF0361 

«lIt9UTSl=ST  i  SURF0362 

UTtH(ITSI=tRR  SUPF 0363 

bt=ST-t««-  SURF6364 

lRA=l«(lh)  SURF036S 

1RH=1R  <  1 7 1  sURFo3b6 

IFt  KOI  tbl-lRA)-  242.244.244  '  SURF 0367 

242  lF<l|_U<l7>*lRd>  243 .244.244  SURF0368 

>4  3  ISHI=AhAa1  ( IlSUftB.lMO»lf  IPRi'»trsURU-l.IMG»l.lPHI  *  SURF0369 

inS(IRA,lMU,lPH).TIb(lKA-i,lH5.IPR))/Z.  SURF0370 

6T=AmAXksI  ,TSH1)  6URF0371 

-Z44  if <Im1<16>“1KA-1>  247.247. Z4S  6UHF037Z 

Ph6  jF»l«m7>-lRd-l)  247.Z47.Z4b  SURF0373 

?.,b  I'SHA'eAHInj  iTTS(lRB.l.IMG.l*IPR).ITS(lH6.2*lHG*l*lPM)»  SUMF0374 

llTS(lHA.i,tMoilPR>«TTSlIRA.2,ING,lPH) )/2.  SURF037S 

sT=AmIN1(SI.TSMA>  SUKF0376 

>47  lfUTS-50!  Z48.Z4B.Z60  8UPF0377 

?40  1 16=176*1  SURF 0378 

lF(AHs<ERRI-l.)  Z60.Z60.  Z49  SURF0379 

>60  «Rltf  lb'.22SI  (VITEK(J)  .flTERfJI.Jsl.Sl)  SUHF0380 

ftRlIHn.Zsl)  TH.DTH.vRH.ERFX.Ht.ST.TABC.EMlV.OMlV*  6URF0381 

lr<AU .OrA «A «o .CH.CM.CMh.YZ <11  .Y21Z)  .  SUPF03KZ 

ZY2 (3) «f?(4l • ISll >  .iJsOl  111  iDSuTB (1)  .  .  6URF03B3 

JcMD.Pl1* (ft)  .PlMS(  1I.1.K.IPR.IH6.  ■  SURF03B4 

<  4iL0  ( 161  .  Ihl  i  16)  . I  to  (17)  •  1 H 1  <171  .  1R  ( lb) .  .  6URF03B6 

61RI17)  .  1RA.1RS,.  ITs.llL.MT  SURF 0386 

Z6I  *OHMAl (lux.l06HTH.DTH,VRM,tRFX,Ht.S! .TABC.EHIV.DM1V.RAO,QWA,A.B.CH6URF03B7 
l.CM.fMH,.  rall).rZ(Z)..Y2<3)iYal4).TS<l).OSl)T(I).D6DTB(tl./luX,9SHCMD6URF038B 
<.PLbtM.Ptostl).I.A.lPR*lMG.lLO(16).lMl(16).lLOil7).lHH17).lMU6)6URF0389 
J,lR(l7i  .IRA.1RB.1TS.1TL.MT//10X.9E1Z.  3/.10A.9L12.  3/ 10X.8E  1Z. 3/ 15 1 3/SURFQ390 


4) 

4  =  0 

lt=UO(lo> 
1h=IhI i 16* 

,, 0  ZS2  lj=  7  4  *  1H 

4=4.1 


SURF 0391 
SURF  0392 
SURF  0393 
SURF0394 
SURF  03vb 
SURF  0396 


4-41  LOO*  (i/.TTS‘(J.lHo<lPR).T7S(l.lM6.£<lPR)«  TCHtMl  1.1MG.1.1PR)  .0.SURFQ397 


10.0. YZ J  3) • It .4) . 1) 

I Z  i  1 )  =  T4r,£M<  j.  1  M6«  lPH).VRM»(rZ13l-ICh£MI  J  .IH6.1PR)  ) 

'  ,6T  =  TTS(J.IMo.IPR) 

tA44  400k i iv.ST.TTii.Ml I .EPT 1 1 .MT I . 0. 0. 0.EM1 v ,0M1 V . 1 ) 

TsSussl»sl 

rtAO>SlO*t**lV*TSSO*TSSU»Vf  I 

lRR=Cm*Y<  (  i  |  .EMlV*URA-«Al)-A«sr.tHF  A 
t  ITtKib  ) -f  •*»* 

■  >,  v  I  Tt»>  (4  )  =S  I 

«Rlltl6.Z?6)  I Mb 

«Rllt  to.ZSJ)  t  v  1 1ERI  j)  .t  I  Tt«  I  Jl  •  J=  1  »4 ) 

PS,*1  rORMAUZOA.VfiuPF  TtMPUOX.ZOMtNtRGf  oALANCt  ERROR/ 

l Z 1 A •  7J* lUt  <  Rl  .  1**A «  l**n IrtTU/S'lF T-St  Cl  //( 19A.E  10.3.1  sA.t  10.3) ) 

4  =  0 

14=140(17,.  | 

1H=1H1 ( I 7>  ; 

■  •0  ZS4  J=|t.lM 
L=LM 

CALL  Ltnji)  <lo«TTSiJ«  iHo*  TCritHC  | « 1M6« IPR)  t 

10.0<0.v?'  W.Y2(4).l)  I 

Y2< 1 >=Yz( 31 « VRM» ( ICMtM( J. IMS* 14 iPHI -Y Z ( 3)  1 
bT  =Tl,S  (  J » | Mu  •  1  ,  1  PR  )  I  • 

4A44  LOUK< 19.ST.TT ( I.MII .EP 7 ( l ,MT ) ,0. 0 .O.EM [v .DM1V . I ) 
ISSOralOsl  ' 

,  rAI>=sIG*Emw<.TSS()MsSO*VF 
tRH=CH«YZ ( l) .tMl v*URA-rAO-A*ST .Erf  A 
4 1  Tt  p  (4  I  =)■  HR 
>64  vlItRIl  )=s'l 
lM6=lMb», 
tRITt (6.231/  1Mb 

nRITtlo.ZSO)  (vTTER(J)  .tlTER(J)  .J-l.L) 

1MF=th 

u'j  To  ZZ 6i.  , 

- POSI  ITERyHOR 


>260  If  (KGOP-Z)  Zbl.Z61.ZeS0 
?6l  Y212) =Y2( 1 ) 

26Z  bCHEb=YZ(P) 

IF  ( IStM  1)  I  Z63.Z64.Z63  ' 

264  uOOHV=o. 

60  TO  266 

263  CA44  064 1  ( l  ,ST  .UCONV*  ISEN  (  IPr)  •  TTStN  ( 1 .  l^PR) ,  THStNl  l .  IPRI  . 

1 TCPSpR ( 1 . [PR) )  ' 

26b  OCHtM=((lCHtM.yCONV)»CH 
HW=UrONV 

»C0.9V=CHo  (Mt-OCUNV) 

OS0Ti,N(  1)=4MD/R0  s 

MA=VCUS(A,I.MM,CR.CZ.6Z.SR,EMN.P4B.PLBS.0ST) 

IF(HA-.l)  zO91.Z99l.Z6b0 

Z460  CORTibUE 

bPSV ( 1 ) =CM04  • 

oSUTb(I)=OsOIbN(I)/HA 

OS ( I ) =DSDT  8 1 1 1 *DTH 


SUrF039» 
SURF0399 
SURF 0400 
6URF0401 
SURF040Z 
SURF  0403 
SURF 0404 

&u«ro**o& 

SURF0406 
SURF0407 
SURF040B 
SURF  0409 
SURF0410 
SURF041 1 
6URr041Z 
SURF0413 

Surf  0414 
SURF  04  is 
SUWF0416 
6URF041 7 
SURF  0418 
SURF  0419 
SURF  0420 
SURF0421 
SURF0422 
SURF  0423 
SURF  0424 
SURF  0426 
SURF  042b 
SURF  0427 
SURF  0426 
SURF  0429 
SURF  0430 
SURF  0431 
SURF  0432 
SURF  0433 
SURF 0434 
SURF 043b 
SURF0436 
SURF  0437 
•RF043B 
«F 0439 
SURF  0440 
SURF  044 1 
SURF 0442 
SURF  0443 
SURF 0444 
SURF044S 
SURF  0446 
SURF  0447 
SURF044B 
SURF  0449 
SURF  0460 


! 


USN<II=OS(l)»HA 

2650  TS(l)=ST 

265  00  TO  (2651*2652*2652) .KRESC 

2651  TB(K>*(FAcT«(TB(K)*U(t)»TS(II)*TA<K))/(l.*FACT*U(Ii) 
uO  TO  267 

2652  TB(K)s(FACI«(TB(K)*v  : I) «ST1  ♦  <1«*FACT»HB(K-1>  1  •TA(K)  1  / ( 1,»FACT» 

KU(1)*RH(k-1)>) 

267  IF(KCENT)  2670*2670*2671 

2670  PLU(K>=PL8(K|-0S(I> 
oO  TO  2672 

2671  PLU  (K 1 sPLB 16) -OS (11/2* 

PlO(K>sPLO(K>-OS(I)/2. 

2672  CONTINUE 
u:4=(T5(l)-Id(K))«U{ll 
uCONO  Mil  =uCONOl  <  1)  ♦UN*OTH 
USUMsOSUM.UN 
unP(k)suh/ac(k) 
ucnv(1)2uconv 

UCNVT ( 1 1 =OCUNV«AC IM *OIH*OCNVT  < 1 1 
OCHM(l)=UCntM 

uCMMT ( 1 1 =GLHMT ( I 1 ♦UCmEM*UTH*AC («) 

uRP=EMIV«ORA 

URAB  ( 1 )  =URP 

uRaDT ( 1 1 =Q«AdI ( 1 1 *URP»UTH»AC(K) 

ORAO  ( 1 1  =IIAO 

ORAUT ( 1 1 sQKAOT ( I ) ♦RAD«0TH»AC  <K> 

CMOOT ( 1 1 =Chd 

HEUOl  1 1  =*i£ 

CMT ( 1 1 =CMT ( 1 1 «CHO»AC  <K) »DTH 

II (J)sKUUP 

lTSK(II=ITs 

IABLSU)*IAB 

n*(L(l>=H« 

u(I)=CM 

gZ(1)=ChZ«cMh 

PR(II=t*P|PKES> 

C- - NOUt  DROPPING  PACKAofc 

IF(PLBiKl)  10.10*11 

10  11  (K-U-nmM-i)  13*13.12 

12  IFlHATL(K-l) I  15. 16.1200 
1200  IFIHAlLlA-ll-MU  13*14*13 

14  US  (1 1  =PLo  (M  -OS  <  1 1  *PL0(K) 

UST  T ( I ) =oS I T (1) ‘PLUS ( 1 1 -OST ( 1 1 
PLd(nl=0.0 

PUDIM=«. 

HATE  (M 

MATUK-Us-rtJTLlK-l) 

KSUKI 1)=K-1 
AlJKOPI  l)  =  l 
CAP(K)rO. 
l\SH(K)-0 
KSm(K-1>=1 

PLUS(I)=PL0<K-1)*PLD(K-1) 

USTII 1=0.0 
UNP(K-1>=QNP(K> 

■jO  To  (1203*1203,1201).  KRESC 

l?01  lB(o-l)  =  (TD(K-l).Rtl(K-l)»(TB(KI»TA(K)))»OTH/(;Ap(K-l),TA(K-l) 

00  To  120? 

1?0J  rB(K-ll=(n<K-ll®0TM/CAH(6-l)*TA(K-I) 

1202  (.ONllNUt 
uO  TO  >' 

13  «Rllt(6<16)  l*K 

lb  format  (//10**23HOUKN  THROUGH  IN  COLUMN  .13, 9H  AT  NODE  *lJ//> 

Tpi ;  Tii 
oO  TO  17 

15  *RI11  (0.1(0  I  *K 

Id  (ORMAT(//lOA,35HlMPRUPtR  NOOAL  NUMBERING  IN  COLUMN  .13. 9H  AT  NOOL 
1.13//) 

IHF=TM 

oO  ru  17 

11  KDHOP (11=0 

IF((Pl.HS(II-PLll(K)-05T(I).PLO(rt))/PLHS(I)-.0011  7,7,1100 
1100  HA=PLUS ( l ) -PLB (K ) -OST ( I ) -PLD (K  > 

UST ( I ) =OST 1 1 1 *HA 
ostt(1(=usit(I)*ha 
C— — Nt'h  ArttAS  AND  Ntw  VOLUME 
RAT=1.-0ST(1) /PLdb(l) 

J=K* I- 1 

CRL=CR( J) .«AI*(CR( J«1)-CR(J)) 

CZL=CZ ( J) .RAI» (CZ ( J* 1) -CZ ( J) ) 
hA=CRL-CR(J) 

HH=C?l-CZ(J> 
nC=MA»HA»Hd°H8 
MU=S'|RT  (Hr) 

HE=Pld»MO«(CR(J)«CRL) 

AA(K)=h£ 

L=J*MK*1 

LRH=CN(L).KAf'»(CR(L*l)-CR(L)) 

LZ«=CZ(LI*«AT»(CZ(L*1)-CZ(L) ) 

..A=CRH-CR<l) 


SURF04S1 
SURF  0452 
SURF0453 
SUPF0454 
SURF  0455 
SURF  0456 
SUXF0457 
SURF0458 
SURF0459 
SURF0460 
SUHF0461 
SURF0462 
SURF0463 
SURF 0464 
SURF0465 
SURF 0466 
SURF0467 
SURF0468 
SURF0469 
SURF0470 
SURF047 1 
SUHF0472 
SURF0473 
SURF0474 
SURF047S 
SURF  0476 
SURF  0477 
SURF0478 
SURFC479 
SURF04B0 
SURF  0*.81 
SURF04B2 
SURF0483 
SURF  0484 
SUHF0485 
SURF0486 
SURF  0487 
SURF  0488 
SURF  0489 
SURF0490 
SURF 0491 
SURF  0492 
SURF  0493 
SURF0494 
SUM)  0495 
SURF  0496 
SURF0497 
SURr049B 
dURF  0499 
SURF0500 
SURF  0501 
SURF0502 
SURF0503 
SURF0504 
SURF  0505 
SURF0506 
SURF0507 
SURF0508 
SURF  0509 
SURF 05 10 
SURF  0511 
SUWF0512 
SURF  05l3 
SURF  0514 
SURF0515 
SURF  0516 
SURF  0517 
5URF0S18 
SURF 05 19 
SURF 0520 
SURF  0521 
SURF0522 
SURF  0523 
SURF 0524 
SURF 0525 
SURFuS2b 
SURF0527 
SURF0528 
SURF0529 
SURF  05  JO 
SURF  0531 
SURF0532 
SURF0533 
SURF 0534 
SURF  05 35 
SURF  0536 
SURF0537 
SURF  0538 
SURF 0539 
SURF0540 


m)=C/K-C/(Ll 

5URF0S41 

MCaHA»«A»ho»hH 

SURF0542 

HO=SOhT (mri 

SURF  0543 

„F=t'lrt»'.iO»U.WO«C«tU  1 

SURF0544 

«01M  =«F 

SURF  0545 

mAaCRk-Che 

SURF  0546 

rvl=C/R-CZl 

bURF0S47 

nC=nA  *mA  * 

SURF0S4B 

mL)=S0kT  f  rtf  . 

SURF  0549 

AC  (A  1  5R  1CHR.CRL  1 

SURF05S0 

nA=t-<< 

bURFoSbl 

hR-iCNI  Jl  «C«L 

SURF0SS2 

11C2CP  (J|  «C*<  IL ) 

SURF0553 

HU=CSl*U<'(. 

bURF  0554 

mE=LHL»CRP 

bURFOSSS 

HF*CKal»C«tl> 

SURF0556 

nG=CM(U«C«K 

SURF  0557 

rtH=CR(<oCRR 

SUMFOSSB 

rlS=ZRO 

SURF0S59 

M5=MS»C7l  -hO) 

bURFOSbO 

Mb=HS»C2 (L 1 • iHO-HC.Hn-hA) 

SURF  05b  1 

MS-!ib«C/u»  (hB*HE«  ma-mm) 

SURF  0562 

hS=«S»C2w»  lri£-n6.Hu-MF ) 

SURF056J 

VULIkI  =  b.ot>01  7lt-04»ABS(HSI 

SURF05b4 

5RUl  =  ltrtL«v.NK|/2. 

SURF  0565 

sZl  I  )  =  1C2|  ♦( ./xl/2. 

SURF  0566 

lF(ACtf.n  /.  7.1101 

SURF  05b7 

nA=  KH  ( 1 1 .  ICR  1 J)  »Ck IlI  )  /2. )  /2. 

SURF056ft 

riH=(SZ<Ii  .  1CaIJ).C/(U)/2.)/2. 

SURF  0569 

nO=t(,Rt.-CRl  J)  1/2. -ha 

SURF  0570 

n£=ICZL-CZU1 1/2. -na 

SURF 05 71 

HC  =  MO»HC.Ht*.|£ 

bU»F0572 

RLA (K 1 =f 1 »SukT <m(_I 

SURF  0573 

HO=(CRR-pRiL) 1/2. -mA 

bURF0S74 

mE= IC/r-C/ (li 1 /2.-nd 

surfoszs 

nC=nO«Ml).Ht«n£ 

bURF  057b 

Hl.ClAl-if  (•bOMTiril  1 

SURF 0577 

CONI 1MUE 

5URF05/0 

UK,7S=unTS..jsUM»,)T-i 

5URF0579 

Kt  TURN 

SURF  05tj0 

tNU 

SURF  05b  1 

fONU  10!.  vooslft.l.MM.CK.CZ.S^.bH.t.HN.l'LtiiHLBS.UST) 
■-iPtUAi  A.iytHSOl./SCHAErER/APc  xtSIKICitO  VERSION 
UIFtNSION  Ul  1)  .5  i  I  1)  .SZ  (  1)  .SR<  11  .tHN(  11  1) 

uIHtNSION  Kl  slll.ObtUl 
rOUUb 
J  =  AM*1 
L= J.MM. 1 

MiJICHI  II.oi.ILII/2. 

Zl=tC/ I  Jl.cZU.11/2. 
oZaS/HI-ZIM.E-IS 
o  1  SI :i3L'''a  (11*0 ST  (1) 
tHHAr«aS(EHN(I)l 

vC0S=U7/(D*!>T  »SOR7U.»EMNA»»2> 1 • (EMNl 1 1 /EMNA. ISR (I  I  • 

1/ 1  a.  f. 

VCOb=AHS(VOObl 
rtt  I  OKI. 
f  'll> 


VCOSOOOl 

VCOS0002 

VC050003 

VCOS0004 

VCOSOOOS 

vcosoooo 

VCCS0007 

VCOSCOOB 

VC050009 

VCOS0010 

vcosoou 

VCOS0012 
■R1 )  /DZ#tMNAl  VCOS0013 
VC0S0014 
VCOS0015 
VCOS0016 
VCOS0017 


4-31 


